home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1994-05-30 | 18.6 KB | [TEXT/ALFA] |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: vi.tcl
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 10%
| dexvert
| Jesper Olsen Module (music/jesperOlsen)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| MacBinary II, Mon May 30 13:57:35 1994, modified Mon May 30 13:57:35 1994, creator Alpha editor, type ASCII, 17566 bytes "vi.tcl" , at 0x451e 1242 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 49%
| TrID
| Macintosh plain text (MacBinary)
| default
| |
| 33%
| TrID
| TTComp archive compressed (bin-4K)
| default (weak)
| |
| 16%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| siegfried
| fmt/1762 MacBinary (II)
| default
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TEXT] |
| macFileCreator | [ALFA] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 76 69 2e 74 63 6c | 00 00 00 00 00 00 00 00 |..vi.tcl|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 00 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 44 9e 00 | 00 04 da aa 0f d9 8f aa |.....D..|........|
|00000060| 0f d9 8f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 29 bf 00 00 |........|....)...|
|00000080| 23 20 41 6c 70 68 61 20 | 35 2e 78 20 49 6e 69 74 |# Alpha |5.x Init|
|00000090| 20 46 69 6c 65 0d 0d 23 | 20 2a 2a 2a 2a 2a 2a 2a | File..#| *******|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000e0| 2a 2a 2a 2a 2a 0d 23 20 | 46 49 4c 45 3a 09 09 76 |*****.# |FILE:..v|
|000000f0| 69 2e 74 63 6c 0d 23 20 | 43 4f 4e 54 45 4e 54 53 |i.tcl.# |CONTENTS|
|00000100| 3a 09 41 6c 70 68 61 20 | 74 63 6c 20 73 74 61 72 |:.Alpha |tcl star|
|00000110| 74 75 70 20 66 6f 72 20 | 73 69 6d 70 6c 65 20 22 |tup for |simple "|
|00000120| 76 69 22 20 65 6d 75 6c | 61 74 69 6f 6e 2e 0d 23 |vi" emul|ation..#|
|00000130| 20 41 55 54 48 4f 52 3a | 20 50 65 74 65 72 20 48 | AUTHOR:| Peter H|
|00000140| 2e 20 4d 69 6c 6c 73 20 | 28 70 68 6d 40 63 73 2e |. Mills |(phm@cs.|
|00000150| 64 75 6b 65 2e 65 64 75 | 29 0d 23 20 43 4f 50 59 |duke.edu|).# COPY|
|00000160| 52 49 47 48 54 3a 0d 23 | 09 43 6f 70 79 72 69 67 |RIGHT:.#|.Copyrig|
|00000170| 68 74 20 a9 20 31 39 39 | 34 20 62 79 20 50 65 74 |ht . 199|4 by Pet|
|00000180| 65 72 20 48 2e 20 4d 69 | 6c 6c 73 0d 23 09 41 6c |er H. Mi|lls.#.Al|
|00000190| 6c 20 72 69 67 68 74 73 | 20 72 65 73 65 72 76 65 |l rights| reserve|
|000001a0| 64 2e 0d 23 0d 23 09 52 | 65 64 69 73 74 72 69 62 |d..#.#.R|edistrib|
|000001b0| 75 74 69 6f 6e 20 61 6e | 64 20 75 73 65 20 69 6e |ution an|d use in|
|000001c0| 20 73 6f 75 72 63 65 20 | 61 6e 64 20 62 69 6e 61 | source |and bina|
|000001d0| 72 79 20 66 6f 72 6d 73 | 20 61 72 65 20 70 65 72 |ry forms| are per|
|000001e0| 6d 69 74 74 65 64 0d 23 | 09 70 72 6f 76 69 64 65 |mitted.#|.provide|
|000001f0| 64 20 74 68 61 74 20 74 | 68 65 20 61 62 6f 76 65 |d that t|he above|
|00000200| 20 63 6f 70 79 72 69 67 | 68 74 20 6e 6f 74 69 63 | copyrig|ht notic|
|00000210| 65 20 61 6e 64 20 74 68 | 69 73 20 70 61 72 61 67 |e and th|is parag|
|00000220| 72 61 70 68 20 61 72 65 | 0d 23 09 64 75 70 6c 69 |raph are|.#.dupli|
|00000230| 63 61 74 65 64 20 69 6e | 20 61 6c 6c 20 73 75 63 |cated in| all suc|
|00000240| 68 20 66 6f 72 6d 73 20 | 61 6e 64 20 74 68 61 74 |h forms |and that|
|00000250| 20 61 6e 79 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 | any doc|umentati|
|00000260| 6f 6e 2c 0d 23 09 61 64 | 76 65 72 74 69 73 69 6e |on,.#.ad|vertisin|
|00000270| 67 20 6d 61 74 65 72 69 | 61 6c 73 2c 20 61 6e 64 |g materi|als, and|
|00000280| 20 6f 74 68 65 72 20 6d | 61 74 65 72 69 61 6c 73 | other m|aterials|
|00000290| 20 72 65 6c 61 74 65 64 | 20 74 6f 20 73 75 63 68 | related| to such|
|000002a0| 0d 23 09 64 69 73 74 72 | 69 62 75 74 69 6f 6e 20 |.#.distr|ibution |
|000002b0| 61 6e 64 20 75 73 65 20 | 61 63 6b 6e 6f 77 6c 65 |and use |acknowle|
|000002c0| 64 67 65 20 74 68 61 74 | 20 74 68 65 20 73 6f 66 |dge that| the sof|
|000002d0| 74 77 61 72 65 20 77 61 | 73 20 64 65 76 65 6c 6f |tware wa|s develo|
|000002e0| 70 65 64 0d 23 09 62 79 | 20 50 65 74 65 72 20 48 |ped.#.by| Peter H|
|000002f0| 2e 20 4d 69 6c 6c 73 2e | 0d 23 0d 23 09 54 48 49 |. Mills.|.#.#.THI|
|00000300| 53 20 53 4f 46 54 57 41 | 52 45 20 49 53 20 50 52 |S SOFTWA|RE IS PR|
|00000310| 4f 56 49 44 45 44 20 22 | 41 53 20 49 53 22 20 41 |OVIDED "|AS IS" A|
|00000320| 4e 44 20 57 49 54 48 4f | 55 54 20 41 4e 59 20 45 |ND WITHO|UT ANY E|
|00000330| 58 50 52 45 53 53 20 4f | 52 0d 23 09 49 4d 50 4c |XPRESS O|R.#.IMPL|
|00000340| 49 45 44 20 57 41 52 52 | 41 4e 54 49 45 53 2c 20 |IED WARR|ANTIES, |
|00000350| 49 4e 43 4c 55 44 49 4e | 47 2c 20 57 49 54 48 4f |INCLUDIN|G, WITHO|
|00000360| 55 54 20 4c 49 4d 49 54 | 41 54 49 4f 4e 2c 20 54 |UT LIMIT|ATION, T|
|00000370| 48 45 20 49 4d 50 4c 49 | 45 44 0d 23 09 57 41 52 |HE IMPLI|ED.#.WAR|
|00000380| 52 41 4e 54 49 45 53 20 | 4f 46 20 4d 45 52 43 48 |RANTIES |OF MERCH|
|00000390| 41 4e 54 41 42 49 4c 49 | 54 59 20 41 4e 44 20 46 |ANTABILI|TY AND F|
|000003a0| 49 54 4e 45 53 53 20 46 | 4f 52 20 41 20 50 41 52 |ITNESS F|OR A PAR|
|000003b0| 54 49 43 55 4c 41 52 20 | 50 55 52 50 4f 53 45 2e |TICULAR |PURPOSE.|
|000003c0| 0d 23 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.# *****|********|
|000003d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0d |********|******..|
|00000410| 23 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |# ======|========|
|00000420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 23 20 3d |========|====.# =|
|00000440| 3d 3d 3d 20 56 69 20 4d | 4f 44 45 20 20 28 56 69 |=== Vi M|ODE (Vi|
|00000450| 2c 20 49 6e 73 65 72 74 | 2c 20 45 78 29 09 3d 3d |, Insert|, Ex).==|
|00000460| 3d 3d 0d 23 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |==.# ===|========|
|00000470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000490| 23 20 56 49 09 28 76 69 | 73 75 61 6c 09 65 64 69 |# VI.(vi|sual.edi|
|000004a0| 74 6f 72 20 2d 2d 2d 20 | 6d 69 6e 69 6d 61 6c 20 |tor --- |minimal |
|000004b0| 73 75 62 73 65 74 29 20 | 20 20 2d 2d 2d 20 62 79 |subset) | --- by|
|000004c0| 20 50 65 74 65 72 20 4d | 69 6c 6c 73 0d 23 0d 23 | Peter M|ills.#.#|
|000004d0| 20 49 4e 54 52 4f 44 55 | 43 54 49 4f 4e 3a 0d 23 | INTRODU|CTION:.#|
|000004e0| 09 54 68 69 73 20 69 73 | 20 61 20 74 63 6c 20 70 |.This is| a tcl p|
|000004f0| 61 63 6b 61 67 65 20 66 | 6f 72 20 41 6c 70 68 61 |ackage f|or Alpha|
|00000500| 20 74 68 61 74 20 73 75 | 70 70 6f 72 74 73 20 61 | that su|pports a|
|00000510| 20 73 75 62 73 65 74 20 | 6f 66 20 76 69 20 6d 6f | subset |of vi mo|
|00000520| 64 65 0d 23 09 61 6e 64 | 20 61 6e 20 65 78 74 72 |de.#.and| an extr|
|00000530| 65 6d 65 6c 79 20 73 6d | 61 6c 6c 20 73 65 74 20 |emely sm|all set |
|00000540| 6f 66 20 65 78 20 63 6f | 6d 6d 61 6e 64 73 2e 0d |of ex co|mmands..|
|00000550| 23 20 55 53 41 47 45 3a | 0d 23 09 59 6f 75 20 73 |# USAGE:|.#.You s|
|00000560| 68 6f 75 6c 64 20 22 73 | 6f 75 72 63 65 22 20 74 |hould "s|ource" t|
|00000570| 68 69 73 20 66 69 6c 65 | 20 69 6e 20 79 6f 75 72 |his file| in your|
|00000580| 20 75 73 65 72 53 74 61 | 72 74 75 70 2e 74 63 6c | userSta|rtup.tcl|
|00000590| 20 66 69 6c 65 2e 0d 23 | 09 28 53 65 65 20 41 6c | file..#|.(See Al|
|000005a0| 70 68 61 42 69 74 73 2e | 74 63 6c 20 66 6f 72 20 |phaBits.|tcl for |
|000005b0| 61 6e 20 65 78 61 6d 70 | 6c 65 20 6f 66 20 22 73 |an examp|le of "s|
|000005c0| 6f 75 72 63 65 22 20 63 | 6f 6d 6d 61 6e 64 20 75 |ource" c|ommand u|
|000005d0| 73 61 67 65 29 2e 0d 23 | 09 54 68 65 20 66 69 6c |sage)..#|.The fil|
|000005e0| 65 20 77 69 6c 6c 20 61 | 75 74 6f 6d 61 74 69 63 |e will a|utomatic|
|000005f0| 61 6c 6c 79 20 61 64 64 | 20 61 6e 20 65 6e 74 72 |ally add| an entr|
|00000600| 79 20 66 6f 72 20 22 56 | 69 22 20 74 6f 20 74 68 |y for "V|i" to th|
|00000610| 65 20 6d 6f 64 65 20 6d | 65 6e 75 0d 23 09 28 74 |e mode m|enu.#.(t|
|00000620| 68 65 20 6c 6f 77 65 72 | 20 6c 65 66 74 2d 68 61 |he lower| left-ha|
|00000630| 6e 64 20 77 69 6e 64 6f | 77 20 62 6f 78 29 2c 20 |nd windo|w box), |
|00000640| 77 68 69 63 68 20 61 6c | 6c 6f 77 73 20 79 6f 75 |which al|lows you|
|00000650| 20 74 6f 20 65 6e 74 65 | 72 20 76 69 20 6d 6f 64 | to ente|r vi mod|
|00000660| 65 2e 0d 23 09 28 41 6c | 74 65 72 6e 61 74 69 76 |e..#.(Al|ternativ|
|00000670| 65 6c 79 2c 20 74 6f 20 | 65 6e 74 65 72 20 76 69 |ely, to |enter vi|
|00000680| 20 6d 6f 64 65 20 65 78 | 65 63 75 74 65 20 74 68 | mode ex|ecute th|
|00000690| 65 20 63 6f 6d 6d 61 6e | 64 20 22 73 65 74 56 69 |e comman|d "setVi|
|000006a0| 4d 6f 64 65 22 3b 0d 23 | 09 74 6f 20 65 78 69 74 |Mode";.#|.to exit|
|000006b0| 20 76 69 20 6d 6f 64 65 | 20 73 69 6d 70 6c 79 20 | vi mode| simply |
|000006c0| 75 73 65 20 74 68 65 20 | 6e 6f 72 6d 61 6c 20 41 |use the |normal A|
|000006d0| 6c 70 68 61 20 6d 6f 64 | 65 20 73 77 69 74 63 68 |lpha mod|e switch|
|000006e0| 69 6e 67 20 74 65 63 68 | 6e 69 71 75 65 2e 29 0d |ing tech|nique.).|
|000006f0| 23 09 54 6f 20 68 61 76 | 65 20 76 69 20 6d 6f 64 |#.To hav|e vi mod|
|00000700| 65 20 65 6e 74 65 72 65 | 64 20 61 75 74 6f 6d 61 |e entere|d automa|
|00000710| 74 69 63 61 6c 6c 79 20 | 6f 6e 20 66 69 6c 65 20 |tically |on file |
|00000720| 6f 70 65 6e 2c 20 79 6f | 75 20 6d 75 73 74 0d 23 |open, yo|u must.#|
|00000730| 09 61 6c 74 65 72 20 74 | 68 65 20 22 73 65 74 57 |.alter t|he "setW|
|00000740| 69 6e 4d 6f 64 65 7b 7d | 22 20 66 75 6e 63 74 69 |inMode{}|" functi|
|00000750| 6f 6e 20 69 6e 20 53 79 | 73 74 65 6d 43 6f 64 65 |on in Sy|stemCode|
|00000760| 3a 70 72 6f 63 73 2e 74 | 63 6c 0d 23 09 77 68 69 |:procs.t|cl.#.whi|
|00000770| 63 68 20 63 68 6f 6f 73 | 65 73 20 74 68 65 20 6d |ch choos|es the m|
|00000780| 6f 64 65 20 62 61 73 65 | 64 20 6f 6e 20 72 65 63 |ode base|d on rec|
|00000790| 6f 67 6e 69 7a 69 6e 67 | 20 66 69 6c 65 20 73 75 |ognizing| file su|
|000007a0| 66 66 69 78 65 73 0d 23 | 09 28 6f 72 2c 20 69 66 |ffixes.#|.(or, if|
|000007b0| 20 75 73 69 6e 67 20 4d | 69 6c 6c 73 27 20 61 64 | using M|ills' ad|
|000007c0| 76 61 6e 63 65 64 20 22 | 6d 6f 64 65 70 72 6f 63 |vanced "|modeproc|
|000007d0| 73 2e 74 63 6c 22 20 61 | 6e 64 20 22 6d 6f 64 65 |s.tcl" a|nd "mode|
|000007e0| 73 2e 74 63 6c 22 2c 20 | 0d 23 09 62 79 20 6f 76 |s.tcl", |.#.by ov|
|000007f0| 65 72 72 69 64 69 6e 67 | 20 74 68 65 20 22 6d 6f |erriding| the "mo|
|00000800| 64 65 4f 66 46 69 6c 65 | 4e 61 6d 65 22 20 66 75 |deOfFile|Name" fu|
|00000810| 6e 63 74 69 6f 6e 20 69 | 6e 20 22 6d 6f 64 65 73 |nction i|n "modes|
|00000820| 2e 74 63 6c 22 29 2e 0d | 23 20 53 55 4d 4d 41 52 |.tcl")..|# SUMMAR|
|00000830| 59 20 6f 66 20 76 69 20 | 43 4f 4d 4d 41 4e 44 53 |Y of vi |COMMANDS|
|00000840| 20 73 75 70 70 6f 72 74 | 65 64 3a 0d 23 09 4d 4f | support|ed:.#.MO|
|00000850| 44 45 20 53 57 49 54 43 | 48 3a 09 69 20 28 69 6e |DE SWITC|H:.i (in|
|00000860| 73 65 72 74 20 6d 6f 64 | 65 29 0d 23 09 09 09 45 |sert mod|e).#...E|
|00000870| 53 43 20 28 65 6e 64 20 | 69 6e 73 65 72 74 20 6d |SC (end |insert m|
|00000880| 6f 64 65 2c 20 6f 72 20 | 61 62 6f 72 74 20 69 6e |ode, or |abort in|
|00000890| 20 76 69 20 6d 6f 64 65 | 29 2c 0d 23 09 09 09 3a | vi mode|),.#...:|
|000008a0| 20 28 65 78 20 6d 6f 64 | 65 20 2d 2d 20 76 65 72 | (ex mod|e -- ver|
|000008b0| 79 20 6c 69 6d 69 74 65 | 64 2c 20 64 6f 6e 27 74 |y limite|d, don't|
|000008c0| 20 75 73 65 20 69 74 29 | 2e 0d 23 09 09 09 5e 7a | use it)|..#...^z|
|000008d0| 20 28 73 77 69 74 63 68 | 20 66 72 6f 6d 20 76 69 | (switch| from vi|
|000008e0| 20 6d 6f 64 65 20 74 6f | 20 74 65 78 74 20 6d 6f | mode to| text mo|
|000008f0| 64 65 29 0d 23 09 4d 4f | 54 49 4f 4e 3a 09 09 68 |de).#.MO|TION:..h|
|00000900| 2c 6a 2c 6b 2c 6c 2c 30 | 2c 24 2c 20 44 45 4c 20 |,j,k,l,0|,$, DEL |
|00000910| 28 62 61 63 6b 77 61 72 | 64 29 2c 20 43 52 20 28 |(backwar|d), CR (|
|00000920| 6e 65 78 74 6c 69 6e 65 | 29 2c 20 5e 66 2c 20 5e |nextline|), ^f, ^|
|00000930| 62 2c 0d 23 09 09 09 77 | 2c 62 2c 65 2c 7a 2c 20 |b,.#...w|,b,e,z, |
|00000940| 5e 31 20 28 68 6f 6d 65 | 29 2c 20 5e 24 20 28 6c |^1 (home|), ^$ (l|
|00000950| 61 73 74 6c 69 6e 65 29 | 0d 23 09 45 44 49 54 49 |astline)|.#.EDITI|
|00000960| 4e 47 3a 09 63 3c 77 2c | 24 3e 09 69 20 20 20 61 |NG:.c<w,|$>.i a|
|00000970| 09 41 20 20 20 6f 09 4f | 20 20 20 73 0d 23 09 09 |.A o.O| s.#..|
|00000980| 09 64 3c 77 2c 24 2c 64 | 2c 4c 3e 20 20 78 09 4a |.d<w,$,d|,L> x.J|
|00000990| 20 20 20 28 22 72 22 20 | 3d 3d 20 73 29 09 64 3c | ("r" |== s).d<|
|000009a0| 52 3d 72 65 73 74 2c 42 | 3d 62 65 66 6f 72 65 3e |R=rest,B|=before>|
|000009b0| 09 0d 23 09 4d 41 52 4b | 53 3a 09 09 6d 20 28 73 |..#.MARK|S:..m (s|
|000009c0| 65 74 20 6e 61 6d 65 64 | 20 6d 61 72 6b 29 09 27 |et named| mark).'|
|000009d0| 20 28 67 6f 74 6f 20 6e | 61 6d 65 64 20 6d 61 72 | (goto n|amed mar|
|000009e0| 6b 29 0d 23 09 09 09 5e | 6d 20 28 73 65 74 20 6d |k).#...^|m (set m|
|000009f0| 61 72 6b 29 09 09 5e 27 | 20 28 65 78 63 68 61 6e |ark)..^'| (exchan|
|00000a00| 67 65 50 6f 69 6e 74 41 | 6e 64 4d 61 72 6b 29 0d |gePointA|ndMark).|
|00000a10| 23 09 43 55 54 20 26 20 | 50 41 53 54 45 3a 09 70 |#.CUT & |PASTE:.p|
|00000a20| 20 28 79 61 6e 6b 29 20 | 20 20 20 64 78 20 28 63 | (yank) | dx (c|
|00000a30| 75 74 29 20 20 20 64 63 | 20 28 63 6f 70 79 29 20 |ut) dc| (copy) |
|00000a40| 20 20 64 76 20 28 70 61 | 73 74 65 29 0d 23 09 53 | dv (pa|ste).#.S|
|00000a50| 45 41 52 43 48 3a 09 09 | 2f 20 28 66 6f 72 77 61 |EARCH:..|/ (forwa|
|00000a60| 72 64 29 20 20 20 3f 20 | 28 62 61 63 6b 77 61 72 |rd) ? |(backwar|
|00000a70| 64 29 20 20 20 6e 20 28 | 66 69 6e 64 20 6e 65 78 |d) n (|find nex|
|00000a80| 74 29 0d 23 09 09 09 5e | 25 20 28 62 61 6c 61 6e |t).#...^|% (balan|
|00000a90| 63 65 2c 20 6d 61 74 63 | 68 62 72 61 63 65 29 0d |ce, matc|hbrace).|
|00000aa0| 23 09 55 4e 44 4f 2f 52 | 45 44 4f 3a 09 75 09 75 |#.UNDO/R|EDO:.u.u|
|00000ab0| 6e 64 6f 20 28 68 69 73 | 74 6f 72 79 29 0d 23 09 |ndo (his|tory).#.|
|00000ac0| 09 09 2e 09 72 65 64 6f | 20 28 4f 4e 4c 59 20 6f |....redo| (ONLY o|
|00000ad0| 6e 20 22 64 22 20 61 6e | 64 20 69 6e 73 65 72 74 |n "d" an|d insert|
|00000ae0| 2d 6f 70 73 20 3c 63 2c | 69 2c 41 2c 6f 3e 29 0d |-ops <c,|i,A,o>).|
|00000af0| 23 09 09 09 28 52 65 64 | 6f 20 6c 61 73 74 63 6f |#...(Red|o lastco|
|00000b00| 6d 6d 61 6e 64 20 61 62 | 6f 76 65 2c 20 69 67 6e |mmand ab|ove, ign|
|00000b10| 6f 72 65 73 20 69 6e 74 | 65 72 76 65 6e 69 6e 67 |ores int|ervening|
|00000b20| 20 68 69 73 74 6f 72 79 | 2e 0d 23 09 53 54 41 54 | history|..#.STAT|
|00000b30| 55 53 3a 09 09 5e 67 0d | 23 20 45 58 20 6d 6f 64 |US:..^g.|# EX mod|
|00000b40| 65 3a 0d 23 09 4d 4f 54 | 49 4f 4e 3a 09 09 31 20 |e:.#.MOT|ION:..1 |
|00000b50| 28 68 6f 6d 65 29 09 24 | 20 28 65 6e 64 29 09 09 |(home).$| (end)..|
|00000b60| 67 20 28 67 6f 74 6f 20 | 6c 69 6e 65 29 0d 23 09 |g (goto |line).#.|
|00000b70| 43 55 54 20 26 20 50 41 | 53 54 45 3a 09 78 20 28 |CUT & PA|STE:.x (|
|00000b80| 63 75 74 29 09 09 09 63 | 20 28 63 6f 70 79 29 09 |cut)...c| (copy).|
|00000b90| 76 20 28 70 61 73 74 65 | 29 0d 23 09 09 09 58 20 |v (paste|).#...X |
|00000ba0| 28 63 75 74 20 6e 61 6d | 65 64 20 63 6c 69 70 62 |(cut nam|ed clipb|
|00000bb0| 29 09 43 20 28 63 6f 70 | 79 20 6e 61 6d 65 64 29 |).C (cop|y named)|
|00000bc0| 09 56 20 28 70 61 73 74 | 65 20 6e 61 6d 65 64 29 |.V (past|e named)|
|00000bd0| 0d 23 09 46 49 4c 45 20 | 61 6e 64 20 57 49 4e 44 |.#.FILE |and WIND|
|00000be0| 4f 57 3a 20 71 20 28 71 | 75 69 74 29 20 20 72 20 |OW: q (q|uit) r |
|00000bf0| 28 72 65 61 64 29 20 20 | 77 20 28 73 61 76 65 29 |(read) |w (save)|
|00000c00| 20 20 6e 20 28 6e 65 77 | 20 77 69 6e 29 20 20 73 | n (new| win) s|
|00000c10| 20 28 73 61 76 65 20 41 | 73 29 0d 23 09 09 09 20 | (save A|s).#... |
|00000c20| 53 20 28 73 61 76 65 20 | 73 65 6c 65 63 74 69 6f |S (save |selectio|
|00000c30| 6e 29 20 20 70 20 28 63 | 6f 70 79 20 73 65 6c 20 |n) p (c|opy sel |
|00000c40| 74 6f 20 6e 65 77 20 77 | 69 6e 64 29 0d 23 20 2a |to new w|ind).# *|
|00000c50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0d 23 20 |********|****..# |
|00000ca0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 23 20 3d 3d 3d |========|==.# ===|
|00000cd0| 3d 20 56 69 20 4d 4f 44 | 45 20 20 28 56 69 2c 20 |= Vi MOD|E (Vi, |
|00000ce0| 49 6e 73 65 72 74 2c 20 | 45 78 29 09 3d 3d 3d 3d |Insert, |Ex).====|
|00000cf0| 0d 23 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.# =====|========|
|00000d00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 23 20 |========|=====.# |
|00000d20| 20 56 69 20 4d 6f 64 65 | 3a 0d 23 09 56 61 72 69 | Vi Mode|:.#.Vari|
|00000d30| 61 62 6c 65 73 0d 23 09 | 46 75 6e 63 74 69 6f 6e |ables.#.|Function|
|00000d40| 73 3a 20 45 64 69 74 0d | 23 09 46 75 6e 63 74 69 |s: Edit.|#.Functi|
|00000d50| 6f 6e 73 3a 20 4d 6f 64 | 65 0d 23 09 4b 65 79 20 |ons: Mod|e.#.Key |
|00000d60| 42 69 6e 64 69 6e 67 73 | 3a 20 56 69 2c 20 49 6e |Bindings|: Vi, In|
|00000d70| 73 65 72 74 2c 20 45 78 | 20 4d 6f 64 65 73 0d 23 |sert, Ex| Modes.#|
|00000d80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000da0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0d 23 20 3d |========|===..# =|
|00000db0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000dc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 23 20 3d 3d 3d 3d |========|=.# ====|
|00000dd0| 20 56 41 52 49 41 42 4c | 45 53 0d 23 20 3d 3d 3d | VARIABL|ES.# ===|
|00000de0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000df0| 3d 3d 3d 3d 3d 3d 3d 0d | 23 20 3d 3d 3d 3d 20 43 |=======.|# ==== C|
|00000e00| 6f 6e 73 74 61 6e 74 73 | 20 3d 3d 3d 3d 0d 73 65 |onstants| ====.se|
|00000e10| 74 20 65 73 63 20 30 78 | 33 35 0d 73 65 74 20 64 |t esc 0x|35.set d|
|00000e20| 65 6c 20 30 78 33 33 0d | 73 65 74 20 63 72 20 20 |el 0x33.|set cr |
|00000e30| 30 78 32 34 0d 73 65 74 | 20 73 70 63 20 30 78 33 |0x24.set| spc 0x3|
|00000e40| 31 0d 73 65 74 20 71 75 | 6f 74 20 30 78 32 37 0d |1.set qu|ot 0x27.|
|00000e50| 69 66 20 7b 21 20 5b 69 | 6e 66 6f 20 65 78 69 73 |if {! [i|nfo exis|
|00000e60| 74 73 20 61 6c 74 65 73 | 63 5d 7d 20 7b 20 73 65 |ts altes|c]} { se|
|00000e70| 74 20 61 6c 74 65 73 63 | 20 30 78 33 35 20 7d 0d |t altesc| 0x35 }.|
|00000e80| 23 20 3d 3d 3d 3d 20 52 | 65 64 6f 20 48 69 73 74 |# ==== R|edo Hist|
|00000e90| 6f 72 79 20 3d 3d 3d 3d | 0d 73 65 74 20 76 69 4c |ory ====|.set viL|
|00000ea0| 61 73 74 43 6d 64 20 22 | 22 0d 73 65 74 20 76 69 |astCmd "|".set vi|
|00000eb0| 49 6e 73 65 72 74 54 65 | 78 74 20 22 22 0d 23 20 |InsertTe|xt "".# |
|00000ec0| 3d 3d 3d 3d 20 53 65 61 | 72 63 68 20 50 61 72 61 |==== Sea|rch Para|
|00000ed0| 6d 73 20 3d 3d 3d 3d 0d | 73 65 74 20 73 65 61 72 |ms ====.|set sear|
|00000ee0| 63 68 53 74 72 20 22 22 | 0d 73 65 74 20 73 65 61 |chStr ""|.set sea|
|00000ef0| 72 63 68 57 72 61 70 20 | 31 0d 73 65 74 20 66 6f |rchWrap |1.set fo|
|00000f00| 72 77 61 72 64 20 31 0d | 73 65 74 20 72 65 67 45 |rward 1.|set regE|
|00000f10| 78 70 72 20 31 0d 73 65 | 74 20 69 67 6e 6f 72 65 |xpr 1.se|t ignore|
|00000f20| 43 61 73 65 20 31 0d 73 | 65 74 20 6d 61 74 63 68 |Case 1.s|et match|
|00000f30| 57 6f 72 64 73 20 30 0d | 0d 0d 23 20 3d 3d 3d 3d |Words 0.|..# ====|
|00000f40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000f80| 3d 0d 23 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=.# ====|========|
|00000f90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 23 |========|======.#|
|00000fa0| 20 3d 3d 3d 3d 20 4d 4f | 44 45 20 46 55 4e 43 54 | ==== MO|DE FUNCT|
|00000fb0| 49 4f 4e 53 09 3d 3d 3d | 3d 0d 23 20 3d 3d 3d 3d |IONS.===|=.# ====|
|00000fc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000fd0| 3d 3d 3d 3d 3d 3d 0d 0d | 23 3d 3d 3d 3d 3d 3d 3d |======..|#=======|
|00000fe0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ff0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001000| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001010| 3d 3d 0d 23 09 43 4f 50 | 49 45 44 20 66 72 6f 6d |==.#.COP|IED from|
|00001020| 20 6d 6f 64 65 70 72 6f | 63 73 2e 74 63 6c 20 28 | modepro|cs.tcl (|
|00001030| 62 79 20 50 65 74 65 72 | 20 4d 69 6c 6c 73 29 0d |by Peter| Mills).|
|00001040| 23 09 44 45 50 45 4e 44 | 45 4e 43 45 53 3a 20 20 |#.DEPEND|ENCES: |
|00001050| 63 68 61 6e 67 65 4d 6f | 64 65 28 6d 6f 64 65 29 |changeMo|de(mode)|
|00001060| 2c 20 77 69 6e 4e 61 6d | 65 54 6f 4e 75 6d 28 6e |, winNam|eToNum(n|
|00001070| 61 6d 65 29 0d 23 3d 3d | 3d 3d 0d 23 09 53 55 42 |ame).#==|==.#.SUB|
|00001080| 4d 4f 44 45 20 69 73 20 | 6e 61 6d 65 2c 20 75 73 |MODE is |name, us|
|00001090| 65 64 20 62 79 20 22 64 | 69 73 70 6c 61 79 4d 6f |ed by "d|isplayMo|
|000010a0| 64 65 22 2c 20 6f 66 20 | 61 20 73 65 74 20 6f 66 |de", of |a set of|
|000010b0| 20 4b 45 59 20 42 49 4e | 44 49 4e 47 53 2e 0d 23 | KEY BIN|DINGS..#|
|000010c0| 3d 3d 3d 3d 0d 69 66 20 | 7b 21 20 5b 69 6e 66 6f |====.if |{! [info|
|000010d0| 20 65 78 69 73 74 73 20 | 6d 6f 64 65 70 72 6f 63 | exists |modeproc|
|000010e0| 73 5f 64 65 66 69 6e 65 | 64 5d 7d 20 7b 0d 73 65 |s_define|d]} {.se|
|000010f0| 74 20 63 75 72 57 69 6e | 49 64 20 2d 31 0d 73 65 |t curWin|Id -1.se|
|00001100| 74 20 73 75 62 4d 6f 64 | 65 20 22 22 0d 70 72 6f |t subMod|e "".pro|
|00001110| 63 20 63 68 61 6e 67 65 | 53 75 62 4d 6f 64 65 20 |c change|SubMode |
|00001120| 7b 6e 65 77 53 75 62 4d | 6f 64 65 20 7b 77 6e 61 |{newSubM|ode {wna|
|00001130| 6d 65 20 22 22 7d 7d 20 | 7b 0d 09 67 6c 6f 62 61 |me ""}} |{..globa|
|00001140| 6c 20 73 75 62 4d 6f 64 | 65 0d 09 67 6c 6f 62 61 |l subMod|e..globa|
|00001150| 6c 20 63 75 72 57 69 6e | 49 64 0d 09 67 6c 6f 62 |l curWin|Id..glob|
|00001160| 61 6c 20 77 69 6e 4e 75 | 6d 54 6f 53 75 62 4d 6f |al winNu|mToSubMo|
|00001170| 64 65 0d 09 73 65 74 20 | 63 75 72 57 69 6e 4e 61 |de..set |curWinNa|
|00001180| 6d 65 20 5b 6c 69 6e 64 | 65 78 20 5b 77 69 6e 4e |me [lind|ex [winN|
|00001190| 61 6d 65 73 20 2d 66 5d | 20 30 5d 0d 09 73 65 74 |ames -f]| 0]..set|
|000011a0| 20 63 75 72 57 69 6e 49 | 64 20 5b 67 65 74 57 69 | curWinI|d [getWi|
|000011b0| 6e 49 64 20 24 63 75 72 | 57 69 6e 4e 61 6d 65 5d |nId $cur|WinName]|
|000011c0| 0d 09 69 66 20 7b 24 77 | 6e 61 6d 65 20 3d 3d 20 |..if {$w|name == |
|000011d0| 22 22 7d 20 7b 20 73 65 | 74 20 77 69 6e 49 64 20 |""} { se|t winId |
|000011e0| 24 63 75 72 57 69 6e 49 | 64 0d 09 7d 20 65 6c 73 |$curWinI|d..} els|
|000011f0| 65 20 7b 20 73 65 74 20 | 77 69 6e 49 64 20 5b 67 |e { set |winId [g|
|00001200| 65 74 57 69 6e 49 64 20 | 24 77 6e 61 6d 65 5d 20 |etWinId |$wname] |
|00001210| 7d 0d 09 69 66 20 7b 24 | 77 69 6e 49 64 20 3e 3d |}..if {$|winId >=|
|00001220| 20 30 7d 20 7b 20 73 65 | 74 20 77 69 6e 4e 75 6d | 0} { se|t winNum|
|00001230| 54 6f 53 75 62 4d 6f 64 | 65 28 24 77 69 6e 49 64 |ToSubMod|e($winId|
|00001240| 29 20 24 6e 65 77 53 75 | 62 4d 6f 64 65 20 7d 0d |) $newSu|bMode }.|
|00001250| 09 69 66 20 7b 24 77 69 | 6e 49 64 20 21 3d 20 24 |.if {$wi|nId != $|
|00001260| 63 75 72 57 69 6e 49 64 | 7d 20 7b 20 72 65 74 75 |curWinId|} { retu|
|00001270| 72 6e 20 7d 0d 09 64 69 | 73 70 6c 61 79 4d 6f 64 |rn }..di|splayMod|
|00001280| 65 20 24 6e 65 77 53 75 | 62 4d 6f 64 65 0d 09 73 |e $newSu|bMode..s|
|00001290| 65 74 20 73 75 62 4d 6f | 64 65 20 24 6e 65 77 53 |et subMo|de $newS|
|000012a0| 75 62 4d 6f 64 65 0d 7d | 0d 70 72 6f 63 20 67 65 |ubMode.}|.proc ge|
|000012b0| 74 57 69 6e 49 64 20 77 | 6e 61 6d 65 20 7b 0d 09 |tWinId w|name {..|
|000012c0| 67 6c 6f 62 61 6c 20 77 | 69 6e 4e 61 6d 65 54 6f |global w|inNameTo|
|000012d0| 4e 75 6d 0d 09 69 66 20 | 7b 5b 63 61 74 63 68 20 |Num..if |{[catch |
|000012e0| 7b 20 73 65 74 20 77 69 | 6e 49 64 20 24 77 69 6e |{ set wi|nId $win|
|000012f0| 4e 61 6d 65 54 6f 4e 75 | 6d 28 24 77 6e 61 6d 65 |NameToNu|m($wname|
|00001300| 29 20 7d 5d 7d 20 7b 20 | 73 65 74 20 77 69 6e 49 |) }]} { |set winI|
|00001310| 64 20 2d 31 20 7d 0d 09 | 72 65 74 75 72 6e 20 24 |d -1 }..|return $|
|00001320| 77 69 6e 49 64 0d 7d 0d | 70 72 6f 63 20 61 64 64 |winId.}.|proc add|
|00001330| 4d 6f 64 65 20 7b 6d 6f | 64 65 20 6d 6f 64 65 50 |Mode {mo|de modeP|
|00001340| 72 6f 63 20 6d 6f 64 65 | 57 69 6e 46 75 6e 63 20 |roc mode|WinFunc |
|00001350| 6d 6f 64 65 4d 65 6e 75 | 7d 20 7b 0d 20 20 67 6c |modeMenu|} {. gl|
|00001360| 6f 62 61 6c 20 6d 6f 64 | 65 73 0d 20 20 67 6c 6f |obal mod|es. glo|
|00001370| 62 61 6c 20 6d 6f 64 65 | 50 72 6f 63 73 20 6d 6f |bal mode|Procs mo|
|00001380| 64 65 57 69 6e 46 75 6e | 63 54 69 74 6c 65 20 6d |deWinFun|cTitle m|
|00001390| 6f 64 65 41 64 64 4d 65 | 6e 75 0d 09 6c 61 70 70 |odeAddMe|nu..lapp|
|000013a0| 65 6e 64 20 6d 6f 64 65 | 73 20 24 6d 6f 64 65 0d |end mode|s $mode.|
|000013b0| 09 73 65 74 20 6d 6f 64 | 65 50 72 6f 63 73 28 24 |.set mod|eProcs($|
|000013c0| 6d 6f 64 65 29 20 24 6d | 6f 64 65 50 72 6f 63 0d |mode) $m|odeProc.|
|000013d0| 09 73 65 74 20 6d 6f 64 | 65 57 69 6e 46 75 6e 63 |.set mod|eWinFunc|
|000013e0| 54 69 74 6c 65 28 24 6d | 6f 64 65 29 20 24 6d 6f |Title($m|ode) $mo|
|000013f0| 64 65 57 69 6e 46 75 6e | 63 0d 09 73 65 74 20 6d |deWinFun|c..set m|
|00001400| 6f 64 65 41 64 64 4d 65 | 6e 75 28 24 6d 6f 64 65 |odeAddMe|nu($mode|
|00001410| 29 20 24 6d 6f 64 65 4d | 65 6e 75 0d 7d 0d 7d 0d |) $modeM|enu.}.}.|
|00001420| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00001430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001450| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 63 61 74 63 68 |========|==.catch|
|00001460| 20 7b 0d 20 20 69 66 20 | 7b 28 5b 69 6e 66 6f 20 | {. if |{([info |
|00001470| 65 78 69 73 74 73 20 6d | 6f 64 65 73 5d 29 20 26 |exists m|odes]) &|
|00001480| 26 20 28 5b 6c 73 65 61 | 72 63 68 20 2d 65 78 61 |& ([lsea|rch -exa|
|00001490| 63 74 20 24 6d 6f 64 65 | 73 20 22 56 69 22 5d 20 |ct $mode|s "Vi"] |
|000014a0| 3c 20 30 29 7d 20 7b 0d | 09 61 64 64 4d 6f 64 65 |< 0)} {.|.addMode|
|000014b0| 20 56 69 20 73 65 74 56 | 69 4d 6f 64 65 20 22 46 | Vi setV|iMode "F|
|000014c0| 75 6e 63 22 20 22 22 20 | 7d 0d 7d 0d 0d 0d 23 3d |unc" "" |}.}...#=|
|000014d0| 3d 3d 3d 0d 23 20 3d 3d | 3d 3d 20 53 55 42 4d 4f |===.# ==|== SUBMO|
|000014e0| 44 45 20 28 4d 69 6e 6f | 72 20 4d 6f 64 65 29 0d |DE (Mino|r Mode).|
|000014f0| 23 0d 23 20 57 41 52 4e | 49 4e 47 3a 09 76 69 53 |#.# WARN|ING:.viS|
|00001500| 75 62 4d 6f 64 65 2c 20 | 76 69 49 6e 73 65 72 74 |ubMode, |viInsert|
|00001510| 54 65 78 74 20 73 68 6f | 75 6c 64 20 62 65 20 42 |Text sho|uld be B|
|00001520| 55 46 46 45 52 20 4c 4f | 43 41 4c 20 28 63 75 72 |UFFER LO|CAL (cur|
|00001530| 57 69 6e 49 64 29 0d 23 | 0d 23 20 22 73 75 62 4d |WinId).#|.# "subM|
|00001540| 6f 64 65 22 20 66 72 6f | 6d 20 6d 6f 64 65 73 2e |ode" fro|m modes.|
|00001550| 74 63 6c 2c 20 2a 69 73 | 2a 20 62 75 66 66 65 72 |tcl, *is|* buffer|
|00001560| 20 6c 6f 63 61 6c 20 2d | 2d 20 63 68 61 6e 67 65 | local -|- change|
|00001570| 53 75 62 4d 6f 64 65 28 | 29 2e 0d 23 3d 3d 3d 3d |SubMode(|)..#====|
|00001580| 0d 0d 23 20 3d 3d 3d 3d | 20 53 57 49 54 43 48 20 |..# ====| SWITCH |
|00001590| 74 6f 20 56 49 20 43 6f | 6d 6d 61 6e 64 20 4d 6f |to VI Co|mmand Mo|
|000015a0| 64 65 20 3d 3d 3d 3d 0d | 70 72 6f 63 20 76 69 43 |de ====.|proc viC|
|000015b0| 6d 64 4d 6f 64 65 20 7b | 7d 20 7b 20 63 68 61 6e |mdMode {|} { chan|
|000015c0| 67 65 53 75 62 4d 6f 64 | 65 20 22 56 69 22 20 7d |geSubMod|e "Vi" }|
|000015d0| 0d 0d 23 20 63 68 61 6e | 67 65 4d 6f 64 65 3a 20 |..# chan|geMode: |
|000015e0| 72 65 73 74 6f 72 65 73 | 20 6d 6f 64 65 2d 6c 6f |restores| mode-lo|
|000015f0| 63 61 6c 20 70 61 72 61 | 6d 73 2c 20 73 65 74 73 |cal para|ms, sets|
|00001600| 20 31 73 74 20 74 69 6d | 65 20 74 6f 20 54 65 78 | 1st tim|e to Tex|
|00001610| 74 4d 6f 64 65 50 61 72 | 61 6d 73 0d 70 72 6f 63 |tModePar|ams.proc|
|00001620| 20 73 65 74 56 69 4d 6f | 64 65 20 7b 7d 20 7b 0d | setViMo|de {} {.|
|00001630| 09 63 68 61 6e 67 65 4d | 6f 64 65 20 22 56 69 22 |.changeM|ode "Vi"|
|00001640| 0d 09 75 70 6c 65 76 65 | 6c 20 23 30 20 7b 0d 09 |..upleve|l #0 {..|
|00001650| 09 73 65 74 20 77 6f 72 | 64 42 72 65 61 6b 20 22 |.set wor|dBreak "|
|00001660| 24 76 69 57 6f 72 64 42 | 72 65 61 6b 22 0d 09 09 |$viWordB|reak"...|
|00001670| 73 65 74 20 77 6f 72 64 | 42 72 65 61 6b 50 72 65 |set word|BreakPre|
|00001680| 66 61 63 65 20 22 24 76 | 69 57 6f 72 64 42 72 65 |face "$v|iWordBre|
|00001690| 61 6b 50 72 65 66 61 63 | 65 22 0d 09 7d 0d 09 76 |akPrefac|e"..}..v|
|000016a0| 69 43 6d 64 4d 6f 64 65 | 0d 7d 0d 0d 70 72 6f 63 |iCmdMode|.}..proc|
|000016b0| 20 73 65 74 56 69 4d 6f | 64 65 4f 66 66 20 7b 7d | setViMo|deOff {}|
|000016c0| 20 7b 0d 09 6d 65 73 73 | 61 67 65 20 22 45 78 69 | {..mess|age "Exi|
|000016d0| 74 69 6e 67 20 76 69 20 | 6d 6f 64 65 22 0d 09 63 |ting vi |mode"..c|
|000016e0| 68 61 6e 67 65 4d 6f 64 | 65 20 22 54 65 78 74 22 |hangeMod|e "Text"|
|000016f0| 0d 7d 0d 0d 70 72 6f 63 | 20 76 69 52 65 64 6f 4c |.}..proc| viRedoL|
|00001700| 61 73 74 43 6d 64 20 7b | 7d 20 7b 0d 09 67 6c 6f |astCmd {|} {..glo|
|00001710| 62 61 6c 20 76 69 4c 61 | 73 74 43 6d 64 0d 09 67 |bal viLa|stCmd..g|
|00001720| 6c 6f 62 61 6c 20 73 75 | 62 4d 6f 64 65 0d 09 69 |lobal su|bMode..i|
|00001730| 66 20 7b 24 76 69 4c 61 | 73 74 43 6d 64 20 3d 3d |f {$viLa|stCmd ==|
|00001740| 20 22 22 7d 20 7b 0d 09 | 09 61 62 6f 72 74 45 6d | ""} {..|.abortEm|
|00001750| 0d 09 09 72 65 74 75 72 | 6e 20 0d 09 7d 0d 09 73 |...retur|n ..}..s|
|00001760| 65 74 20 73 75 62 4d 6f | 64 65 20 22 56 69 22 0d |et subMo|de "Vi".|
|00001770| 09 24 76 69 4c 61 73 74 | 43 6d 64 0d 09 69 66 20 |.$viLast|Cmd..if |
|00001780| 7b 24 73 75 62 4d 6f 64 | 65 20 3d 3d 20 22 49 6e |{$subMod|e == "In|
|00001790| 73 65 72 74 22 7d 20 7b | 20 76 69 52 65 64 6f 49 |sert"} {| viRedoI|
|000017a0| 6e 73 65 72 74 20 7d 0d | 7d 0d 0d 0d 23 20 3d 3d |nsert }.|}...# ==|
|000017b0| 3d 3d 20 53 57 49 54 43 | 48 20 74 6f 20 56 49 20 |== SWITC|H to VI |
|000017c0| 49 6e 73 65 72 74 20 4d | 6f 64 65 20 3d 3d 3d 3d |Insert M|ode ====|
|000017d0| 0d 70 72 6f 63 20 76 69 | 49 6e 73 65 72 74 43 6d |.proc vi|InsertCm|
|000017e0| 64 20 7b 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 76 |d {} {..|global v|
|000017f0| 69 4c 61 73 74 43 6d 64 | 0d 09 67 6c 6f 62 61 6c |iLastCmd|..global|
|00001800| 20 63 75 72 57 69 6e 49 | 64 0d 09 63 68 61 6e 67 | curWinI|d..chang|
|00001810| 65 53 75 62 4d 6f 64 65 | 20 22 49 6e 73 65 72 74 |eSubMode| "Insert|
|00001820| 22 0d 09 73 65 74 20 76 | 69 4c 61 73 74 43 6d 64 |"..set v|iLastCmd|
|00001830| 20 76 69 49 6e 73 65 72 | 74 43 6d 64 0d 09 69 66 | viInser|tCmd..if|
|00001840| 20 7b 5b 67 65 74 50 6f | 73 5d 20 21 3d 20 5b 73 | {[getPo|s] != [s|
|00001850| 65 6c 45 6e 64 5d 7d 20 | 7b 20 64 65 6c 65 74 65 |elEnd]} |{ delete|
|00001860| 54 65 78 74 20 5b 67 65 | 74 50 6f 73 5d 20 5b 73 |Text [ge|tPos] [s|
|00001870| 65 6c 45 6e 64 5d 20 7d | 0d 09 63 72 65 61 74 65 |elEnd] }|..create|
|00001880| 54 4d 61 72 6b 20 22 76 | 69 49 6e 73 24 63 75 72 |TMark "v|iIns$cur|
|00001890| 57 69 6e 49 64 22 20 5b | 67 65 74 50 6f 73 5d 0d |WinId" [|getPos].|
|000018a0| 7d 0d 0d 70 72 6f 63 20 | 76 69 49 6e 73 65 72 74 |}..proc |viInsert|
|000018b0| 4d 6f 64 65 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |Mode {} |{..globa|
|000018c0| 6c 20 63 75 72 57 69 6e | 49 64 0d 09 63 68 61 6e |l curWin|Id..chan|
|000018d0| 67 65 53 75 62 4d 6f 64 | 65 20 22 49 6e 73 65 72 |geSubMod|e "Inser|
|000018e0| 74 22 0d 09 63 72 65 61 | 74 65 54 4d 61 72 6b 20 |t"..crea|teTMark |
|000018f0| 22 76 69 49 6e 73 24 63 | 75 72 57 69 6e 49 64 22 |"viIns$c|urWinId"|
|00001900| 20 5b 67 65 74 50 6f 73 | 5d 0d 7d 0d 0d 23 20 45 | [getPos|].}..# E|
|00001910| 4e 44 20 49 4e 53 45 52 | 54 3a 20 73 61 76 65 20 |ND INSER|T: save |
|00001920| 69 6e 73 65 72 74 65 64 | 20 74 65 78 74 20 69 6e |inserted| text in|
|00001930| 20 69 6e 73 65 72 74 2d | 62 75 66 66 65 72 2c 20 | insert-|buffer, |
|00001940| 73 77 69 74 63 68 20 74 | 6f 20 56 49 20 43 6f 6d |switch t|o VI Com|
|00001950| 6d 61 6e 64 20 4d 6f 64 | 65 2e 0d 23 20 50 52 4f |mand Mod|e..# PRO|
|00001960| 42 4c 45 4d 3a 20 20 22 | 76 69 49 6e 73 22 20 6d |BLEM: "|viIns" m|
|00001970| 61 72 6b 20 6d 61 79 20 | 62 65 20 67 6f 6e 65 20 |ark may |be gone |
|00001980| 76 69 61 20 64 65 6c 65 | 74 69 6f 6e 20 70 61 73 |via dele|tion pas|
|00001990| 74 20 69 6e 73 65 72 74 | 2d 70 6f 69 6e 74 20 28 |t insert|-point (|
|000019a0| 7e 62 69 6e 64 20 72 65 | 64 6f 29 0d 70 72 6f 63 |~bind re|do).proc|
|000019b0| 20 76 69 45 6e 64 49 6e | 73 4d 6f 64 65 20 7b 7d | viEndIn|sMode {}|
|000019c0| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 76 69 49 6e 73 | {..glob|al viIns|
|000019d0| 65 72 74 54 65 78 74 0d | 09 67 6c 6f 62 61 6c 20 |ertText.|.global |
|000019e0| 63 75 72 57 69 6e 49 64 | 0d 23 09 23 20 28 76 69 |curWinId|.#.# (vi|
|000019f0| 43 6d 64 4d 6f 64 65 29 | 0d 09 63 68 61 6e 67 65 |CmdMode)|..change|
|00001a00| 53 75 62 4d 6f 64 65 20 | 22 56 69 22 0d 09 73 65 |SubMode |"Vi"..se|
|00001a10| 74 20 65 6e 64 20 5b 67 | 65 74 50 6f 73 5d 0d 09 |t end [g|etPos]..|
|00001a20| 69 66 20 5b 63 61 74 63 | 68 20 7b 20 67 6f 74 6f |if [catc|h { goto|
|00001a30| 54 4d 61 72 6b 20 22 76 | 69 49 6e 73 24 63 75 72 |TMark "v|iIns$cur|
|00001a40| 57 69 6e 49 64 22 20 7d | 5d 20 7b 20 62 65 65 70 |WinId" }|] { beep|
|00001a50| 20 3b 20 72 65 74 75 72 | 6e 20 7d 0d 23 09 23 20 | ; retur|n }.#.# |
|00001a60| 72 65 6d 6f 76 65 54 4d | 61 72 6b 20 22 76 69 49 |removeTM|ark "viI|
|00001a70| 6e 73 24 63 75 72 57 69 | 6e 49 64 22 09 2d 2d 2d |ns$curWi|nId".---|
|00001a80| 20 61 75 74 6f 20 61 74 | 20 77 69 6e 20 63 6c 6f | auto at| win clo|
|00001a90| 73 65 0d 09 73 65 74 20 | 73 74 61 72 74 20 5b 67 |se..set |start [g|
|00001aa0| 65 74 50 6f 73 5d 0d 09 | 67 6f 74 6f 20 24 65 6e |etPos]..|goto $en|
|00001ab0| 64 0d 09 69 66 20 7b 24 | 73 74 61 72 74 20 3e 3d |d..if {$|start >=|
|00001ac0| 20 24 65 6e 64 7d 20 7b | 20 72 65 74 75 72 6e 20 | $end} {| return |
|00001ad0| 7d 0d 09 73 65 74 20 76 | 69 49 6e 73 65 72 74 54 |}..set v|iInsertT|
|00001ae0| 65 78 74 20 5b 67 65 74 | 54 65 78 74 20 24 73 74 |ext [get|Text $st|
|00001af0| 61 72 74 20 24 65 6e 64 | 5d 0d 7d 0d 0d 70 72 6f |art $end|].}..pro|
|00001b00| 63 20 76 69 52 65 64 6f | 49 6e 73 65 72 74 20 7b |c viRedo|Insert {|
|00001b10| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 76 69 49 6e |} {..glo|bal viIn|
|00001b20| 73 65 72 74 54 65 78 74 | 0d 09 69 66 20 7b 5b 67 |sertText|..if {[g|
|00001b30| 65 74 50 6f 73 5d 20 3d | 3d 20 5b 73 65 6c 45 6e |etPos] =|= [selEn|
|00001b40| 64 5d 7d 20 7b 20 69 6e | 73 65 72 74 54 65 78 74 |d]} { in|sertText|
|00001b50| 20 24 76 69 49 6e 73 65 | 72 74 54 65 78 74 0d 09 | $viInse|rtText..|
|00001b60| 7d 20 65 6c 73 65 20 7b | 20 72 65 70 6c 61 63 65 |} else {| replace|
|00001b70| 54 65 78 74 20 5b 67 65 | 74 50 6f 73 5d 20 5b 73 |Text [ge|tPos] [s|
|00001b80| 65 6c 45 6e 64 5d 20 20 | 24 76 69 49 6e 73 65 72 |elEnd] |$viInser|
|00001b90| 74 54 65 78 74 20 7d 0d | 09 76 69 43 6d 64 4d 6f |tText }.|.viCmdMo|
|00001ba0| 64 65 0d 7d 0d 0d 0d 23 | 20 3d 3d 3d 3d 20 53 57 |de.}...#| ==== SW|
|00001bb0| 49 54 43 48 20 74 6f 20 | 76 69 20 45 58 20 4d 6f |ITCH to |vi EX Mo|
|00001bc0| 64 65 20 3d 3d 3d 3d 0d | 70 72 6f 63 20 76 69 45 |de ====.|proc viE|
|00001bd0| 78 4d 6f 64 65 20 7b 7d | 20 7b 0d 09 63 68 61 6e |xMode {}| {..chan|
|00001be0| 67 65 53 75 62 4d 6f 64 | 65 20 22 45 78 22 0d 09 |geSubMod|e "Ex"..|
|00001bf0| 6d 65 73 73 61 67 65 20 | 22 65 78 20 4d 6f 64 65 |message |"ex Mode|
|00001c00| 22 0d 7d 0d 0d 0d 23 20 | 3d 3d 3d 3d 3d 3d 3d 3d |".}...# |========|
|00001c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 23 20 |========|=====.# |
|00001c50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001c60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 23 20 3d 3d 3d |========|==.# ===|
|00001c70| 3d 20 45 44 49 54 20 46 | 55 4e 43 54 49 4f 4e 53 |= EDIT F|UNCTIONS|
|00001c80| 20 28 57 4f 52 44 20 4d | 4f 54 49 4f 4e 29 0d 23 | (WORD M|OTION).#|
|00001c90| 20 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | =======|========|
|00001ca0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 73 65 74 20 |========|===.set |
|00001cb0| 76 69 57 6f 72 64 42 72 | 65 61 6b 20 7b 28 28 5b |viWordBr|eak {(([|
|00001cc0| 61 2d 7a 41 2d 5a 30 2d | 39 5f 5d 2b 29 7c 28 5b |a-zA-Z0-|9_]+)|([|
|00001cd0| 21 2d 2f 3a 2d 40 5c 5b | 2d 5e 5c 60 5c 7b 2d 7e |!-/:-@\[|-^\`\{-~|
|00001ce0| 5d 2b 29 29 7d 0d 73 65 | 74 20 76 69 57 6f 72 64 |]+))}.se|t viWord|
|00001cf0| 42 72 65 61 6b 50 72 65 | 66 61 63 65 20 7b 28 5b |BreakPre|face {([|
|00001d00| 5e 61 2d 7a 41 2d 5a 30 | 2d 39 5f 5d 29 7d 0d 73 |^a-zA-Z0|-9_])}.s|
|00001d10| 65 74 20 76 69 53 57 6f | 72 64 42 72 65 61 6b 50 |et viSWo|rdBreakP|
|00001d20| 72 65 66 61 63 65 20 5c | 0d 20 7b 28 28 5b 5e 61 |reface \|. {(([^a|
|00001d30| 2d 7a 41 2d 5a 30 2d 39 | 5f 5d 28 5b 61 2d 7a 41 |-zA-Z0-9|_]([a-zA|
|00001d40| 2d 5a 30 2d 39 5f 5d 2b | 29 29 7c 28 5b 5e 21 2d |-Z0-9_]+|))|([^!-|
|00001d50| 2f 3a 2d 40 5c 5b 2d 5e | 5c 60 5c 7b 2d 7e 5d 28 |/:-@\[-^|\`\{-~](|
|00001d60| 5b 21 2d 2f 3a 2d 40 5c | 5b 2d 5e 5c 60 5c 7b 2d |[!-/:-@\|[-^\`\{-|
|00001d70| 7e 5d 2b 29 29 29 7d 0d | 73 65 74 20 76 69 4e 6f |~]+)))}.|set viNo|
|00001d80| 6e 57 68 69 74 65 53 70 | 61 63 65 20 7b 5b 21 2d |nWhiteSp|ace {[!-|
|00001d90| 7e 5d 7d 0d 0d 70 72 6f | 63 20 76 69 45 6e 64 4f |~]}..pro|c viEndO|
|00001da0| 66 57 6f 72 64 20 7b 7d | 20 7b 0d 09 67 6c 6f 62 |fWord {}| {..glob|
|00001db0| 61 6c 20 76 69 57 6f 72 | 64 42 72 65 61 6b 0d 09 |al viWor|dBreak..|
|00001dc0| 73 65 74 20 72 65 74 76 | 61 6c 20 5b 73 65 61 72 |set retv|al [sear|
|00001dd0| 63 68 20 2d 66 20 31 20 | 2d 72 20 31 20 2d 69 20 |ch -f 1 |-r 1 -i |
|00001de0| 31 20 2d 6d 20 30 20 2d | 6e 20 22 24 76 69 57 6f |1 -m 0 -|n "$viWo|
|00001df0| 72 64 42 72 65 61 6b 22 | 20 5b 67 65 74 50 6f 73 |rdBreak"| [getPos|
|00001e00| 5d 5d 20 0d 09 69 66 20 | 7b 28 24 72 65 74 76 61 |]] ..if |{($retva|
|00001e10| 6c 20 21 3d 20 22 22 29 | 7d 20 7b 0d 09 09 73 65 |l != "")|} {...se|
|00001e20| 74 20 72 65 74 76 61 6c | 20 5b 6c 69 6e 64 65 78 |t retval| [lindex|
|00001e30| 20 24 72 65 74 76 61 6c | 20 31 5d 0d 09 09 67 6f | $retval| 1]...go|
|00001e40| 74 6f 20 24 72 65 74 76 | 61 6c 20 7d 0d 7d 0d 0d |to $retv|al }.}..|
|00001e50| 70 72 6f 63 20 76 69 42 | 61 63 6b 77 61 72 64 57 |proc viB|ackwardW|
|00001e60| 6f 72 64 20 7b 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |ord {} {|..global|
|00001e70| 20 76 69 53 57 6f 72 64 | 42 72 65 61 6b 50 72 65 | viSWord|BreakPre|
|00001e80| 66 61 63 65 0d 09 73 65 | 74 20 73 74 61 72 74 20 |face..se|t start |
|00001e90| 5b 67 65 74 50 6f 73 5d | 0d 09 69 66 20 7b 28 24 |[getPos]|..if {($|
|00001ea0| 73 74 61 72 74 20 3e 20 | 31 29 7d 20 7b 20 69 6e |start > |1)} { in|
|00001eb0| 63 72 20 73 74 61 72 74 | 20 2d 32 20 7d 0d 09 73 |cr start| -2 }..s|
|00001ec0| 65 74 20 72 65 74 76 61 | 6c 20 5b 73 65 61 72 63 |et retva|l [searc|
|00001ed0| 68 20 2d 66 20 30 20 2d | 72 20 31 20 2d 69 20 31 |h -f 0 -|r 1 -i 1|
|00001ee0| 20 2d 6d 20 30 20 2d 6e | 20 22 24 76 69 53 57 6f | -m 0 -n| "$viSWo|
|00001ef0| 72 64 42 72 65 61 6b 50 | 72 65 66 61 63 65 22 20 |rdBreakP|reface" |
|00001f00| 24 73 74 61 72 74 5d 0d | 09 69 66 20 7b 28 24 72 |$start].|.if {($r|
|00001f10| 65 74 76 61 6c 20 21 3d | 20 22 22 29 7d 20 7b 0d |etval !=| "")} {.|
|00001f20| 09 09 73 65 74 20 72 65 | 74 76 61 6c 20 5b 6c 69 |..set re|tval [li|
|00001f30| 6e 64 65 78 20 24 72 65 | 74 76 61 6c 20 30 5d 0d |ndex $re|tval 0].|
|00001f40| 09 09 67 6f 74 6f 20 24 | 72 65 74 76 61 6c 0d 09 |..goto $|retval..|
|00001f50| 09 66 6f 72 77 61 72 64 | 43 68 61 72 20 7d 0d 7d |.forward|Char }.}|
|00001f60| 0d 0d 70 72 6f 63 20 76 | 69 46 6f 72 77 61 72 64 |..proc v|iForward|
|00001f70| 57 6f 72 64 20 7b 7d 20 | 7b 0d 09 67 6c 6f 62 61 |Word {} |{..globa|
|00001f80| 6c 20 76 69 53 57 6f 72 | 64 42 72 65 61 6b 50 72 |l viSWor|dBreakPr|
|00001f90| 65 66 61 63 65 0d 20 20 | 73 65 74 20 72 65 74 76 |eface. |set retv|
|00001fa0| 61 6c 20 5b 73 65 61 72 | 63 68 20 2d 66 20 31 20 |al [sear|ch -f 1 |
|00001fb0| 2d 72 20 31 20 2d 69 20 | 31 20 2d 6d 20 30 20 2d |-r 1 -i |1 -m 0 -|
|00001fc0| 6e 20 22 24 76 69 53 57 | 6f 72 64 42 72 65 61 6b |n "$viSW|ordBreak|
|00001fd0| 50 72 65 66 61 63 65 22 | 20 5b 67 65 74 50 6f 73 |Preface"| [getPos|
|00001fe0| 5d 5d 20 0d 09 69 66 20 | 7b 28 24 72 65 74 76 61 |]] ..if |{($retva|
|00001ff0| 6c 20 21 3d 20 22 22 29 | 7d 20 7b 0d 09 09 73 65 |l != "")|} {...se|
|00002000| 74 20 72 65 74 76 61 6c | 20 5b 6c 69 6e 64 65 78 |t retval| [lindex|
|00002010| 20 24 72 65 74 76 61 6c | 20 30 5d 0d 09 09 67 6f | $retval| 0]...go|
|00002020| 74 6f 20 24 72 65 74 76 | 61 6c 0d 09 09 66 6f 72 |to $retv|al...for|
|00002030| 77 61 72 64 43 68 61 72 | 20 7d 0d 7d 0d 0d 0d 23 |wardChar| }.}...#|
|00002040| 20 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | =======|========|
|00002050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 23 20 3d 3d |========|===.# ==|
|00002060| 3d 3d 20 45 44 49 54 20 | 46 55 4e 43 54 49 4f 4e |== EDIT |FUNCTION|
|00002070| 53 09 3d 3d 3d 3d 0d 23 | 20 3d 3d 3d 3d 3d 3d 3d |S.====.#| =======|
|00002080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002090| 3d 3d 3d 0d 70 72 6f 63 | 20 76 69 44 65 6c 65 74 |===.proc| viDelet|
|000020a0| 65 43 68 61 72 58 20 7b | 7d 20 7b 0d 09 73 65 74 |eCharX {|} {..set|
|000020b0| 20 73 74 61 72 74 20 5b | 67 65 74 50 6f 73 5d 0d | start [|getPos].|
|000020c0| 09 73 65 74 20 70 6f 69 | 6e 74 5f 6d 61 78 20 5b |.set poi|nt_max [|
|000020d0| 6d 61 78 50 6f 73 5d 0d | 09 69 66 20 7b 28 24 73 |maxPos].|.if {($s|
|000020e0| 74 61 72 74 20 3e 3d 20 | 24 70 6f 69 6e 74 5f 6d |tart >= |$point_m|
|000020f0| 61 78 29 20 7c 7c 20 28 | 5b 6c 6f 6f 6b 41 74 20 |ax) || (|[lookAt |
|00002100| 5b 67 65 74 50 6f 73 5d | 5d 20 3d 3d 20 22 5c 6e |[getPos]|] == "\n|
|00002110| 22 29 20 20 7c 7c 0d 09 | 09 28 5b 6c 6f 6f 6b 41 |") ||..|.([lookA|
|00002120| 74 20 5b 67 65 74 50 6f | 73 5d 5d 20 3d 3d 20 22 |t [getPo|s]] == "|
|00002130| 5c 72 22 29 7d 20 7b 20 | 62 61 63 6b 77 61 72 64 |\r")} { |backward|
|00002140| 43 68 61 72 20 7d 0d 09 | 64 65 6c 65 74 65 43 68 |Char }..|deleteCh|
|00002150| 61 72 0d 7d 0d 0d 70 72 | 6f 63 20 76 69 44 65 6c |ar.}..pr|oc viDel|
|00002160| 65 74 65 43 68 61 72 42 | 20 7b 7d 20 7b 0d 09 62 |eteCharB| {} {..b|
|00002170| 61 63 6b 77 61 72 64 43 | 68 61 72 0d 09 64 65 6c |ackwardC|har..del|
|00002180| 65 74 65 43 68 61 72 0d | 7d 0d 0d 70 72 6f 63 20 |eteChar.|}..proc |
|00002190| 76 69 44 65 6c 65 74 65 | 43 68 61 72 53 65 6c 20 |viDelete|CharSel |
|000021a0| 7b 7d 20 7b 0d 09 69 66 | 20 7b 5b 67 65 74 50 6f |{} {..if| {[getPo|
|000021b0| 73 5d 20 3d 3d 20 5b 73 | 65 6c 45 6e 64 5d 7d 20 |s] == [s|elEnd]} |
|000021c0| 7b 0d 09 09 62 61 63 6b | 77 61 72 64 43 68 61 72 |{...back|wardChar|
|000021d0| 0d 09 09 64 65 6c 65 74 | 65 43 68 61 72 0d 09 7d |...delet|eChar..}|
|000021e0| 20 65 6c 73 65 20 7b 20 | 64 65 6c 65 74 65 54 65 | else { |deleteTe|
|000021f0| 78 74 20 5b 67 65 74 50 | 6f 73 5d 20 5b 73 65 6c |xt [getP|os] [sel|
|00002200| 45 6e 64 5d 20 7d 0d 7d | 0d 0d 70 72 6f 63 20 76 |End] }.}|..proc v|
|00002210| 69 54 79 70 65 53 70 61 | 63 65 20 7b 7d 20 7b 0d |iTypeSpa|ce {} {.|
|00002220| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 20 22 0d |.insertT|ext " ".|
|00002230| 7d 0d 0d 0d 70 72 6f 63 | 20 76 69 59 61 6e 6b 20 |}...proc| viYank |
|00002240| 7b 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 76 69 4c |{} {..gl|obal viL|
|00002250| 61 73 74 43 6d 64 0d 09 | 73 65 74 20 76 69 4c 61 |astCmd..|set viLa|
|00002260| 73 74 43 6d 64 20 76 69 | 59 61 6e 6b 0d 09 65 6e |stCmd vi|Yank..en|
|00002270| 64 4f 66 4c 69 6e 65 0d | 09 79 61 6e 6b 0d 09 62 |dOfLine.|.yank..b|
|00002280| 65 67 69 6e 6e 69 6e 67 | 4f 66 4c 69 6e 65 0d 7d |eginning|OfLine.}|
|00002290| 0d 0d 0d 70 72 6f 63 20 | 76 69 4a 6f 69 6e 4c 69 |...proc |viJoinLi|
|000022a0| 6e 65 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |ne {} {.|.global |
|000022b0| 76 69 4c 61 73 74 43 6d | 64 0d 09 67 6c 6f 62 61 |viLastCm|d..globa|
|000022c0| 6c 20 76 69 4e 6f 6e 57 | 68 69 74 65 53 70 61 63 |l viNonW|hiteSpac|
|000022d0| 65 0d 09 73 65 74 20 76 | 69 4c 61 73 74 43 6d 64 |e..set v|iLastCmd|
|000022e0| 20 76 69 4a 6f 69 6e 4c | 69 6e 65 0d 09 63 72 65 | viJoinL|ine..cre|
|000022f0| 61 74 65 54 4d 61 72 6b | 20 22 76 69 54 6d 70 22 |ateTMark| "viTmp"|
|00002300| 20 5b 67 65 74 50 6f 73 | 5d 0d 09 65 6e 64 4f 66 | [getPos|]..endOf|
|00002310| 4c 69 6e 65 0d 09 64 65 | 6c 65 74 65 43 68 61 72 |Line..de|leteChar|
|00002320| 0d 23 09 23 09 53 54 52 | 49 50 20 57 48 49 54 45 |.#.#.STR|IP WHITE|
|00002330| 20 53 50 41 43 45 0d 09 | 73 65 74 20 73 74 61 72 | SPACE..|set star|
|00002340| 74 20 5b 67 65 74 50 6f | 73 5d 0d 09 73 65 74 20 |t [getPo|s]..set |
|00002350| 72 65 74 76 61 6c 20 5b | 73 65 61 72 63 68 20 2d |retval [|search -|
|00002360| 66 20 31 20 2d 72 20 31 | 20 2d 69 20 31 20 2d 6d |f 1 -r 1| -i 1 -m|
|00002370| 20 30 20 2d 6e 20 22 24 | 76 69 4e 6f 6e 57 68 69 | 0 -n "$|viNonWhi|
|00002380| 74 65 53 70 61 63 65 22 | 20 24 73 74 61 72 74 5d |teSpace"| $start]|
|00002390| 0d 09 69 66 20 7b 28 24 | 72 65 74 76 61 6c 20 21 |..if {($|retval !|
|000023a0| 3d 20 22 22 29 7d 20 7b | 20 73 65 74 20 72 65 74 |= "")} {| set ret|
|000023b0| 76 61 6c 20 5b 6c 69 6e | 64 65 78 20 24 72 65 74 |val [lin|dex $ret|
|000023c0| 76 61 6c 20 30 5d 0d 09 | 7d 20 65 6c 73 65 20 7b |val 0]..|} else {|
|000023d0| 20 73 65 74 20 72 65 74 | 76 61 6c 20 24 73 74 61 | set ret|val $sta|
|000023e0| 72 74 20 7d 0d 09 69 66 | 20 7b 24 73 74 61 72 74 |rt }..if| {$start|
|000023f0| 20 3c 20 24 72 65 74 76 | 61 6c 7d 20 7b 20 64 65 | < $retv|al} { de|
|00002400| 6c 65 74 65 54 65 78 74 | 20 24 73 74 61 72 74 20 |leteText| $start |
|00002410| 24 72 65 74 76 61 6c 20 | 7d 0d 23 0d 09 69 6e 73 |$retval |}.#..ins|
|00002420| 65 72 74 54 65 78 74 20 | 22 20 22 0d 09 67 6f 74 |ertText |" "..got|
|00002430| 6f 54 4d 61 72 6b 20 22 | 76 69 54 6d 70 22 0d 09 |oTMark "|viTmp"..|
|00002440| 72 65 6d 6f 76 65 54 4d | 61 72 6b 20 22 76 69 54 |removeTM|ark "viT|
|00002450| 6d 70 22 0d 7d 0d 0d 70 | 72 6f 63 20 76 69 4f 70 |mp".}..p|roc viOp|
|00002460| 65 6e 4c 69 6e 65 20 7b | 7d 20 7b 0d 09 67 6c 6f |enLine {|} {..glo|
|00002470| 62 61 6c 20 76 69 4c 61 | 73 74 43 6d 64 0d 09 73 |bal viLa|stCmd..s|
|00002480| 65 74 20 76 69 4c 61 73 | 74 43 6d 64 20 76 69 4f |et viLas|tCmd viO|
|00002490| 70 65 6e 4c 69 6e 65 0d | 09 65 6e 64 4f 66 4c 69 |penLine.|.endOfLi|
|000024a0| 6e 65 0d 09 63 61 72 72 | 69 61 67 65 52 65 74 75 |ne..carr|iageRetu|
|000024b0| 72 6e 0d 09 76 69 49 6e | 73 65 72 74 4d 6f 64 65 |rn..viIn|sertMode|
|000024c0| 0d 7d 0d 0d 70 72 6f 63 | 20 76 69 4f 70 65 6e 4c |.}..proc| viOpenL|
|000024d0| 69 6e 65 42 20 7b 7d 20 | 7b 0d 09 6f 70 65 6e 4c |ineB {} |{..openL|
|000024e0| 69 6e 65 0d 09 76 69 49 | 6e 73 65 72 74 4d 6f 64 |ine..viI|nsertMod|
|000024f0| 65 0d 7d 0d 0d 70 72 6f | 63 20 76 69 44 65 6c 65 |e.}..pro|c viDele|
|00002500| 74 65 4c 69 6e 65 45 6e | 64 20 7b 7d 20 7b 0d 09 |teLineEn|d {} {..|
|00002510| 67 6c 6f 62 61 6c 20 76 | 69 4c 61 73 74 43 6d 64 |global v|iLastCmd|
|00002520| 0d 09 73 65 74 20 76 69 | 4c 61 73 74 43 6d 64 20 |..set vi|LastCmd |
|00002530| 76 69 44 65 6c 65 74 65 | 4c 69 6e 65 45 6e 64 0d |viDelete|LineEnd.|
|00002540| 09 73 65 74 20 73 74 61 | 72 74 20 5b 67 65 74 50 |.set sta|rt [getP|
|00002550| 6f 73 5d 0d 09 65 6e 64 | 4f 66 4c 69 6e 65 0d 09 |os]..end|OfLine..|
|00002560| 64 65 6c 65 74 65 54 65 | 78 74 20 24 73 74 61 72 |deleteTe|xt $star|
|00002570| 74 20 5b 67 65 74 50 6f | 73 5d 0d 7d 0d 0d 70 72 |t [getPo|s].}..pr|
|00002580| 6f 63 20 76 69 44 65 6c | 65 74 65 4c 69 6e 65 20 |oc viDel|eteLine |
|00002590| 7b 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 76 69 4c |{} {..gl|obal viL|
|000025a0| 61 73 74 43 6d 64 0d 09 | 73 65 74 20 76 69 4c 61 |astCmd..|set viLa|
|000025b0| 73 74 43 6d 64 20 76 69 | 44 65 6c 65 74 65 4c 69 |stCmd vi|DeleteLi|
|000025c0| 6e 65 0d 09 65 6e 64 4f | 66 4c 69 6e 65 0d 09 73 |ne..endO|fLine..s|
|000025d0| 65 74 20 65 6e 64 20 5b | 67 65 74 50 6f 73 5d 0d |et end [|getPos].|
|000025e0| 09 70 72 65 76 69 6f 75 | 73 4c 69 6e 65 0d 09 65 |.previou|sLine..e|
|000025f0| 6e 64 4f 66 4c 69 6e 65 | 0d 09 64 65 6c 65 74 65 |ndOfLine|..delete|
|00002600| 54 65 78 74 20 5b 67 65 | 74 50 6f 73 5d 20 24 65 |Text [ge|tPos] $e|
|00002610| 6e 64 0d 09 62 65 67 69 | 6e 6e 69 6e 67 4f 66 4c |nd..begi|nningOfL|
|00002620| 69 6e 65 0d 09 6e 65 78 | 74 4c 69 6e 65 0d 7d 0d |ine..nex|tLine.}.|
|00002630| 0d 70 72 6f 63 20 76 69 | 44 65 6c 65 74 65 50 61 |.proc vi|DeletePa|
|00002640| 67 65 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |ge {} {.|.global |
|00002650| 76 69 4c 61 73 74 43 6d | 64 0d 09 73 65 74 20 76 |viLastCm|d..set v|
|00002660| 69 4c 61 73 74 43 6d 64 | 20 76 69 44 65 6c 65 74 |iLastCmd| viDelet|
|00002670| 65 50 61 67 65 0d 09 73 | 65 74 20 73 74 61 72 74 |ePage..s|et start|
|00002680| 20 5b 67 65 74 50 6f 73 | 5d 0d 09 70 61 67 65 46 | [getPos|]..pageF|
|00002690| 6f 72 77 61 72 64 0d 09 | 6d 6f 76 65 49 6e 73 65 |orward..|moveInse|
|000026a0| 72 74 69 6f 6e 48 65 72 | 65 0d 09 64 65 6c 65 74 |rtionHer|e..delet|
|000026b0| 65 54 65 78 74 20 24 73 | 74 61 72 74 20 5b 67 65 |eText $s|tart [ge|
|000026c0| 74 50 6f 73 5d 0d 7d 0d | 0d 70 72 6f 63 20 76 69 |tPos].}.|.proc vi|
|000026d0| 44 65 6c 65 74 65 52 65 | 73 74 20 7b 7d 20 7b 0d |DeleteRe|st {} {.|
|000026e0| 09 67 6c 6f 62 61 6c 20 | 76 69 4c 61 73 74 43 6d |.global |viLastCm|
|000026f0| 64 0d 09 73 65 74 20 76 | 69 4c 61 73 74 43 6d 64 |d..set v|iLastCmd|
|00002700| 20 22 22 0d 09 73 65 74 | 20 73 74 61 72 74 20 5b | ""..set| start [|
|00002710| 67 65 74 50 6f 73 5d 0d | 09 65 6e 64 4f 66 42 75 |getPos].|.endOfBu|
|00002720| 66 66 65 72 0d 09 64 65 | 6c 65 74 65 54 65 78 74 |ffer..de|leteText|
|00002730| 20 24 73 74 61 72 74 20 | 5b 67 65 74 50 6f 73 5d | $start |[getPos]|
|00002740| 0d 7d 0d 0d 70 72 6f 63 | 20 76 69 44 65 6c 65 74 |.}..proc| viDelet|
|00002750| 65 41 6c 6c 42 65 66 6f | 72 65 20 7b 7d 20 7b 0d |eAllBefo|re {} {.|
|00002760| 09 67 6c 6f 62 61 6c 20 | 76 69 4c 61 73 74 43 6d |.global |viLastCm|
|00002770| 64 0d 09 73 65 74 20 76 | 69 4c 61 73 74 43 6d 64 |d..set v|iLastCmd|
|00002780| 20 22 22 0d 09 73 65 74 | 20 65 6e 64 20 5b 67 65 | ""..set| end [ge|
|00002790| 74 50 6f 73 5d 0d 09 62 | 65 67 69 6e 6e 69 6e 67 |tPos]..b|eginning|
|000027a0| 4f 66 42 75 66 66 65 72 | 0d 09 64 65 6c 65 74 65 |OfBuffer|..delete|
|000027b0| 54 65 78 74 20 5b 67 65 | 74 50 6f 73 5d 20 24 65 |Text [ge|tPos] $e|
|000027c0| 6e 64 0d 7d 0d 0d 70 72 | 6f 63 20 76 69 44 65 6c |nd.}..pr|oc viDel|
|000027d0| 65 74 65 57 6f 72 64 20 | 7b 7d 20 7b 0d 09 67 6c |eteWord |{} {..gl|
|000027e0| 6f 62 61 6c 20 76 69 4c | 61 73 74 43 6d 64 0d 09 |obal viL|astCmd..|
|000027f0| 73 65 74 20 76 69 4c 61 | 73 74 43 6d 64 20 76 69 |set viLa|stCmd vi|
|00002800| 44 65 6c 65 74 65 57 6f | 72 64 0d 09 73 65 74 20 |DeleteWo|rd..set |
|00002810| 73 74 61 72 74 20 5b 67 | 65 74 50 6f 73 5d 0d 09 |start [g|etPos]..|
|00002820| 76 69 46 6f 72 77 61 72 | 64 57 6f 72 64 0d 09 73 |viForwar|dWord..s|
|00002830| 65 74 20 65 6e 64 20 5b | 67 65 74 50 6f 73 5d 0d |et end [|getPos].|
|00002840| 09 69 66 20 7b 24 73 74 | 61 72 74 20 3c 20 24 65 |.if {$st|art < $e|
|00002850| 6e 64 7d 20 7b 20 64 65 | 6c 65 74 65 54 65 78 74 |nd} { de|leteText|
|00002860| 20 24 73 74 61 72 74 20 | 24 65 6e 64 20 7d 0d 7d | $start |$end }.}|
|00002870| 0d 0d 70 72 6f 63 20 76 | 69 41 64 64 20 7b 7d 20 |..proc v|iAdd {} |
|00002880| 7b 0d 09 67 6c 6f 62 61 | 6c 20 76 69 4c 61 73 74 |{..globa|l viLast|
|00002890| 43 6d 64 0d 09 73 65 74 | 20 76 69 4c 61 73 74 43 |Cmd..set| viLastC|
|000028a0| 6d 64 20 76 69 41 64 64 | 0d 09 76 69 46 6f 72 77 |md viAdd|..viForw|
|000028b0| 61 72 64 57 6f 72 64 0d | 09 76 69 49 6e 73 65 72 |ardWord.|.viInser|
|000028c0| 74 4d 6f 64 65 0d 7d 0d | 0d 70 72 6f 63 20 76 69 |tMode.}.|.proc vi|
|000028d0| 41 64 64 45 6e 64 20 7b | 7d 20 7b 0d 09 67 6c 6f |AddEnd {|} {..glo|
|000028e0| 62 61 6c 20 76 69 4c 61 | 73 74 43 6d 64 0d 09 73 |bal viLa|stCmd..s|
|000028f0| 65 74 20 76 69 4c 61 73 | 74 43 6d 64 20 76 69 41 |et viLas|tCmd viA|
|00002900| 64 64 45 6e 64 0d 09 65 | 6e 64 4f 66 4c 69 6e 65 |ddEnd..e|ndOfLine|
|00002910| 0d 09 76 69 49 6e 73 65 | 72 74 4d 6f 64 65 0d 7d |..viInse|rtMode.}|
|00002920| 0d 0d 70 72 6f 63 20 76 | 69 43 68 61 6e 67 65 4c |..proc v|iChangeL|
|00002930| 69 6e 65 20 7b 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |ine {} {|..global|
|00002940| 20 76 69 4c 61 73 74 43 | 6d 64 0d 09 73 65 74 20 | viLastC|md..set |
|00002950| 76 69 4c 61 73 74 43 6d | 64 20 76 69 43 68 61 6e |viLastCm|d viChan|
|00002960| 67 65 4c 69 6e 65 0d 09 | 73 65 74 20 73 74 61 72 |geLine..|set star|
|00002970| 74 20 5b 67 65 74 50 6f | 73 5d 0d 09 65 6e 64 4f |t [getPo|s]..endO|
|00002980| 66 4c 69 6e 65 0d 09 73 | 65 6c 65 63 74 20 24 73 |fLine..s|elect $s|
|00002990| 74 61 72 74 20 5b 67 65 | 74 50 6f 73 5d 0d 09 76 |tart [ge|tPos]..v|
|000029a0| 69 49 6e 73 65 72 74 4d | 6f 64 65 0d 7d 0d 0d 70 |iInsertM|ode.}..p|
|000029b0| 72 6f 63 20 76 69 43 68 | 61 6e 67 65 57 6f 72 64 |roc viCh|angeWord|
|000029c0| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 76 69 | {} {..g|lobal vi|
|000029d0| 4c 61 73 74 43 6d 64 0d | 09 73 65 74 20 76 69 4c |LastCmd.|.set viL|
|000029e0| 61 73 74 43 6d 64 20 76 | 69 43 68 61 6e 67 65 57 |astCmd v|iChangeW|
|000029f0| 6f 72 64 0d 09 73 65 74 | 20 73 74 61 72 74 20 5b |ord..set| start [|
|00002a00| 67 65 74 50 6f 73 5d 0d | 09 76 69 45 6e 64 4f 66 |getPos].|.viEndOf|
|00002a10| 57 6f 72 64 0d 09 73 65 | 6c 65 63 74 20 24 73 74 |Word..se|lect $st|
|00002a20| 61 72 74 20 5b 67 65 74 | 50 6f 73 5d 0d 09 76 69 |art [get|Pos]..vi|
|00002a30| 49 6e 73 65 72 74 4d 6f | 64 65 0d 7d 0d 0d 70 72 |InsertMo|de.}..pr|
|00002a40| 6f 63 20 76 69 53 75 62 | 43 68 61 72 20 7b 7d 20 |oc viSub|Char {} |
|00002a50| 7b 0d 09 67 6c 6f 62 61 | 6c 20 76 69 4c 61 73 74 |{..globa|l viLast|
|00002a60| 43 6d 64 0d 09 73 65 74 | 20 76 69 4c 61 73 74 43 |Cmd..set| viLastC|
|00002a70| 6d 64 20 76 69 53 75 62 | 43 68 61 72 0d 09 73 65 |md viSub|Char..se|
|00002a80| 74 20 73 74 61 72 74 20 | 5b 67 65 74 50 6f 73 5d |t start |[getPos]|
|00002a90| 0d 09 73 65 74 20 65 6e | 64 20 24 73 74 61 72 74 |..set en|d $start|
|00002aa0| 0d 09 69 6e 63 72 20 65 | 6e 64 0d 09 73 65 6c 65 |..incr e|nd..sele|
|00002ab0| 63 74 20 24 73 74 61 72 | 74 20 24 65 6e 64 0d 09 |ct $star|t $end..|
|00002ac0| 76 69 49 6e 73 65 72 74 | 4d 6f 64 65 0d 7d 0d 0d |viInsert|Mode.}..|
|00002ad0| 23 20 53 65 61 72 63 68 | 20 77 69 74 68 20 57 72 |# Search| with Wr|
|00002ae0| 61 70 20 28 73 65 61 72 | 63 68 57 72 61 70 29 20 |ap (sear|chWrap) |
|00002af0| 3b 20 0d 23 09 4d 61 78 | 5f 50 6f 73 69 74 69 6f |; .#.Max|_Positio|
|00002b00| 6e 28 46 69 6c 65 29 20 | 3d 20 7b 30 2c 5b 6d 61 |n(File) |= {0,[ma|
|00002b10| 78 50 6f 73 5d 2d 31 7d | 0d 70 72 6f 63 20 76 69 |xPos]-1}|.proc vi|
|00002b20| 53 65 61 72 63 68 20 7b | 7d 20 7b 0d 09 67 6c 6f |Search {|} {..glo|
|00002b30| 62 61 6c 20 73 65 61 72 | 63 68 53 74 72 0d 09 67 |bal sear|chStr..g|
|00002b40| 6c 6f 62 61 6c 20 73 65 | 61 72 63 68 57 72 61 70 |lobal se|archWrap|
|00002b50| 0d 09 67 6c 6f 62 61 6c | 20 66 6f 72 77 61 72 64 |..global| forward|
|00002b60| 0d 09 73 65 74 20 73 74 | 61 72 74 20 5b 67 65 74 |..set st|art [get|
|00002b70| 50 6f 73 5d 0d 09 73 65 | 74 20 70 6f 69 6e 74 5f |Pos]..se|t point_|
|00002b80| 6d 61 78 20 5b 65 78 70 | 72 20 7b 5b 6d 61 78 50 |max [exp|r {[maxP|
|00002b90| 6f 73 5d 20 2d 20 31 7d | 5d 0d 09 69 66 20 7b 24 |os] - 1}|]..if {$|
|00002ba0| 66 6f 72 77 61 72 64 7d | 20 7b 20 69 66 20 7b 28 |forward}| { if {(|
|00002bb0| 24 73 74 61 72 74 20 3c | 20 24 70 6f 69 6e 74 5f |$start <| $point_|
|00002bc0| 6d 61 78 29 7d 20 7b 20 | 69 6e 63 72 20 73 74 61 |max)} { |incr sta|
|00002bd0| 72 74 20 7d 0d 09 7d 20 | 65 6c 73 65 20 7b 20 69 |rt }..} |else { i|
|00002be0| 66 20 7b 24 73 74 61 72 | 74 20 3e 20 30 7d 20 7b |f {$star|t > 0} {|
|00002bf0| 20 69 6e 63 72 20 73 74 | 61 72 74 20 2d 31 20 7d | incr st|art -1 }|
|00002c00| 20 7d 0d 09 73 65 74 20 | 72 65 74 76 61 6c 20 5b | }..set |retval [|
|00002c10| 73 65 61 72 63 68 20 2d | 66 20 24 66 6f 72 77 61 |search -|f $forwa|
|00002c20| 72 64 20 2d 6e 20 2d 2d | 20 22 24 73 65 61 72 63 |rd -n --| "$searc|
|00002c30| 68 53 74 72 22 20 24 73 | 74 61 72 74 5d 0d 09 69 |hStr" $s|tart]..i|
|00002c40| 66 20 7b 28 24 72 65 74 | 76 61 6c 20 3d 3d 20 22 |f {($ret|val == "|
|00002c50| 22 29 20 26 26 20 24 73 | 65 61 72 63 68 57 72 61 |") && $s|earchWra|
|00002c60| 70 7d 20 7b 0d 09 20 20 | 69 66 20 7b 24 66 6f 72 |p} {.. |if {$for|
|00002c70| 77 61 72 64 7d 20 7b 20 | 73 65 74 20 66 72 6f 6d |ward} { |set from|
|00002c80| 70 6f 73 20 30 20 7d 20 | 65 6c 73 65 20 7b 20 73 |pos 0 } |else { s|
|00002c90| 65 74 20 66 72 6f 6d 70 | 6f 73 20 24 70 6f 69 6e |et fromp|os $poin|
|00002ca0| 74 5f 6d 61 78 20 7d 0d | 09 20 20 69 66 20 7b 24 |t_max }.|. if {$|
|00002cb0| 66 6f 72 77 61 72 64 7d | 20 7b 0d 09 20 20 20 73 |forward}| {.. s|
|00002cc0| 65 74 20 72 65 74 76 61 | 6c 20 5b 73 65 61 72 63 |et retva|l [searc|
|00002cd0| 68 20 2d 66 20 24 66 6f | 72 77 61 72 64 20 2d 6e |h -f $fo|rward -n|
|00002ce0| 20 2d 6c 20 24 73 74 61 | 72 74 20 2d 2d 20 22 24 | -l $sta|rt -- "$|
|00002cf0| 73 65 61 72 63 68 53 74 | 72 22 20 24 66 72 6f 6d |searchSt|r" $from|
|00002d00| 70 6f 73 5d 20 0d 09 20 | 20 7d 20 65 6c 73 65 20 |pos] .. | } else |
|00002d10| 7b 0d 09 20 20 20 20 73 | 65 74 20 72 65 74 76 61 |{.. s|et retva|
|00002d20| 6c 20 5b 73 65 61 72 63 | 68 20 2d 66 20 24 66 6f |l [searc|h -f $fo|
|00002d30| 72 77 61 72 64 20 2d 6e | 20 2d 2d 20 22 24 73 65 |rward -n| -- "$se|
|00002d40| 61 72 63 68 53 74 72 22 | 20 24 66 72 6f 6d 70 6f |archStr"| $frompo|
|00002d50| 73 5d 20 0d 09 20 20 20 | 20 69 66 20 7b 28 24 72 |s] .. | if {($r|
|00002d60| 65 74 76 61 6c 20 21 3d | 20 22 22 29 20 26 26 20 |etval !=| "") && |
|00002d70| 28 5b 6c 69 6e 64 65 78 | 20 24 72 65 74 76 61 6c |([lindex| $retval|
|00002d80| 20 30 5d 20 3c 20 24 73 | 74 61 72 74 29 7d 20 7b | 0] < $s|tart)} {|
|00002d90| 20 0d 09 09 73 65 74 20 | 72 65 74 76 61 6c 20 22 | ...set |retval "|
|00002da0| 22 7d 20 7d 0d 09 7d 0d | 09 69 66 20 7b 24 72 65 |"} }..}.|.if {$re|
|00002db0| 74 76 61 6c 20 3d 3d 20 | 22 22 7d 20 7b 20 62 65 |tval == |""} { be|
|00002dc0| 65 70 20 7d 20 65 6c 73 | 65 20 7b 20 67 6f 74 6f |ep } els|e { goto|
|00002dd0| 20 5b 6c 69 6e 64 65 78 | 20 24 72 65 74 76 61 6c | [lindex| $retval|
|00002de0| 20 30 5d 20 7d 0d 7d 0d | 0d 70 72 6f 63 20 76 69 | 0] }.}.|.proc vi|
|00002df0| 53 65 61 72 63 68 42 61 | 63 6b 77 61 72 64 20 7b |SearchBa|ckward {|
|00002e00| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 73 65 61 72 |} {..glo|bal sear|
|00002e10| 63 68 53 74 72 0d 09 67 | 6c 6f 62 61 6c 20 66 6f |chStr..g|lobal fo|
|00002e20| 72 77 61 72 64 0d 09 69 | 66 20 5b 63 61 74 63 68 |rward..i|f [catch|
|00002e30| 20 7b 20 70 72 6f 6d 70 | 74 20 22 53 65 61 72 63 | { promp|t "Searc|
|00002e40| 68 20 66 6f 72 3a 20 22 | 20 24 73 65 61 72 63 68 |h for: "| $search|
|00002e50| 53 74 72 20 7d 20 72 65 | 74 76 61 6c 5d 20 7b 20 |Str } re|tval] { |
|00002e60| 72 65 74 75 72 6e 20 7d | 0d 09 73 65 74 20 66 6f |return }|..set fo|
|00002e70| 72 77 61 72 64 20 30 0d | 09 73 65 74 20 73 65 61 |rward 0.|.set sea|
|00002e80| 72 63 68 53 74 72 20 24 | 72 65 74 76 61 6c 0d 09 |rchStr $|retval..|
|00002e90| 76 69 53 65 61 72 63 68 | 0d 7d 0d 0d 70 72 6f 63 |viSearch|.}..proc|
|00002ea0| 20 76 69 53 65 61 72 63 | 68 46 6f 72 77 61 72 64 | viSearc|hForward|
|00002eb0| 20 7b 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 73 65 | {} {..g|lobal se|
|00002ec0| 61 72 63 68 53 74 72 0d | 09 67 6c 6f 62 61 6c 20 |archStr.|.global |
|00002ed0| 66 6f 72 77 61 72 64 0d | 09 69 66 20 5b 63 61 74 |forward.|.if [cat|
|00002ee0| 63 68 20 7b 20 70 72 6f | 6d 70 74 20 22 53 65 61 |ch { pro|mpt "Sea|
|00002ef0| 72 63 68 20 66 6f 72 3a | 20 22 20 24 73 65 61 72 |rch for:| " $sear|
|00002f00| 63 68 53 74 72 20 7d 20 | 72 65 74 76 61 6c 5d 20 |chStr } |retval] |
|00002f10| 7b 20 72 65 74 75 72 6e | 20 7d 0d 09 73 65 74 20 |{ return| }..set |
|00002f20| 66 6f 72 77 61 72 64 20 | 31 0d 09 73 65 74 20 73 |forward |1..set s|
|00002f30| 65 61 72 63 68 53 74 72 | 20 24 72 65 74 76 61 6c |earchStr| $retval|
|00002f40| 0d 09 76 69 53 65 61 72 | 63 68 0d 7d 0d 0d 70 72 |..viSear|ch.}..pr|
|00002f50| 6f 63 20 76 69 52 65 64 | 6f 53 65 61 72 63 68 20 |oc viRed|oSearch |
|00002f60| 7b 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 66 6f 72 |{} {..gl|obal for|
|00002f70| 77 61 72 64 0d 09 69 66 | 20 7b 24 66 6f 72 77 61 |ward..if| {$forwa|
|00002f80| 72 64 7d 20 7b 20 72 65 | 70 65 61 74 53 65 61 72 |rd} { re|peatSear|
|00002f90| 63 68 46 6f 72 77 61 72 | 64 20 7d 20 65 6c 73 65 |chForwar|d } else|
|00002fa0| 20 7b 20 72 65 70 65 61 | 74 53 65 61 72 63 68 42 | { repea|tSearchB|
|00002fb0| 61 63 6b 77 61 72 64 20 | 7d 0d 7d 0d 0d 0d 0d 70 |ackward |}.}....p|
|00002fc0| 72 6f 63 20 76 69 43 6f | 70 79 53 65 6c 57 69 6e |roc viCo|pySelWin|
|00002fd0| 64 20 7b 7d 20 7b 0d 09 | 69 66 20 7b 5b 67 65 74 |d {} {..|if {[get|
|00002fe0| 50 6f 73 5d 20 3d 3d 20 | 5b 73 65 6c 45 6e 64 5d |Pos] == |[selEnd]|
|00002ff0| 7d 20 7b 20 72 65 74 75 | 72 6e 20 7d 0d 09 73 65 |} { retu|rn }..se|
|00003000| 74 20 74 65 78 74 20 5b | 67 65 74 54 65 78 74 20 |t text [|getText |
|00003010| 5b 67 65 74 50 6f 73 5d | 20 5b 73 65 6c 45 6e 64 |[getPos]| [selEnd|
|00003020| 5d 5d 0d 09 6e 65 77 0d | 09 6d 6f 76 65 49 6e 73 |]]..new.|.moveIns|
|00003030| 65 72 74 69 6f 6e 48 65 | 72 65 0d 09 69 6e 73 65 |ertionHe|re..inse|
|00003040| 72 74 54 65 78 74 20 24 | 74 65 78 74 0d 7d 0d 23 |rtText $|text.}.#|
|00003050| 20 28 76 69 65 77 20 6e | 61 6d 65 64 20 63 6c 69 | (view n|amed cli|
|00003060| 70 62 6f 61 72 64 2c 20 | 63 6f 70 79 20 61 6e 64 |pboard, |copy and|
|00003070| 20 76 69 65 77 20 63 6c | 69 70 62 6f 61 72 64 29 | view cl|ipboard)|
|00003080| 0d 23 20 3d 3d 3d 3d 20 | 73 61 76 65 20 73 65 6c |.# ==== |save sel|
|00003090| 65 63 74 69 6f 6e 20 74 | 6f 20 66 69 6c 65 20 3d |ection t|o file =|
|000030a0| 3d 3d 3d 0d 70 72 6f 63 | 20 76 69 53 61 76 65 53 |===.proc| viSaveS|
|000030b0| 65 6c 65 63 74 69 6f 6e | 20 7b 7d 20 7b 0d 09 76 |election| {} {..v|
|000030c0| 69 43 6f 70 79 53 65 6c | 57 69 6e 64 20 0d 09 73 |iCopySel|Wind ..s|
|000030d0| 61 76 65 41 73 0d 09 6b | 69 6c 6c 57 69 6e 64 6f |aveAs..k|illWindo|
|000030e0| 77 0d 7d 0d 0d 0d 0d 23 | 20 3d 3d 3d 3d 3d 3d 3d |w.}....#| =======|
|000030f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 23 |========|======.#|
|00003130| 20 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | =======|========|
|00003140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 23 20 3d 3d |========|===.# ==|
|00003150| 3d 3d 20 4b 45 59 20 42 | 49 4e 44 49 4e 47 53 09 |== KEY B|INDINGS.|
|00003160| 3d 3d 3d 3d 0d 23 20 3d | 3d 3d 3d 3d 3d 3d 3d 3d |====.# =|========|
|00003170| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003180| 3d 0d 23 20 3d 3d 3d 3d | 20 42 49 4e 44 49 4e 47 |=.# ====| BINDING|
|00003190| 53 20 66 6f 72 20 45 4d | 41 43 53 20 28 64 65 6c |S for EM|ACS (del|
|000031a0| 65 74 65 64 20 66 72 6f | 6d 20 6f 72 69 67 69 6e |eted fro|m origin|
|000031b0| 61 6c 29 20 3d 3d 3d 3d | 0d 23 20 62 69 6e 64 20 |al) ====|.# bind |
|000031c0| 27 6a 27 20 3c 65 3e 09 | 09 66 69 6c 6c 52 65 67 |'j' <e>.|.fillReg|
|000031d0| 69 6f 6e 0d 23 20 62 69 | 6e 64 20 27 70 27 20 3c |ion.# bi|nd 'p' <|
|000031e0| 65 3e 09 09 66 69 6c 6c | 50 61 72 61 67 72 61 70 |e>..fill|Paragrap|
|000031f0| 68 0d 23 20 62 69 6e 64 | 20 27 3c 27 20 3c 73 65 |h.# bind| '<' <se|
|00003200| 3e 09 09 62 65 67 69 6e | 6e 69 6e 67 4f 66 42 75 |>..begin|ningOfBu|
|00003210| 66 66 65 72 0d 23 20 62 | 69 6e 64 20 27 3e 27 20 |ffer.# b|ind '>' |
|00003220| 3c 73 65 3e 09 09 65 6e | 64 4f 66 42 75 66 66 65 |<se>..en|dOfBuffe|
|00003230| 72 0d 62 69 6e 64 20 27 | 7a 27 20 3c 7a 3e 09 73 |r.bind '|z' <z>.s|
|00003240| 65 74 56 69 4d 6f 64 65 | 0d 0d 23 20 3d 3d 3d 3d |etViMode|..# ====|
|00003250| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003260| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 23 |========|======.#|
|00003270| 20 3d 3d 3d 3d 20 49 4e | 53 45 52 54 20 4d 4f 44 | ==== IN|SERT MOD|
|00003280| 45 20 42 49 4e 44 49 4e | 47 53 09 3d 3d 3d 3d 0d |E BINDIN|GS.====.|
|00003290| 23 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |# ======|========|
|000032a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000032b0| 3d 3d 3d 3d 0d 62 69 6e | 64 20 24 65 73 63 09 76 |====.bin|d $esc.v|
|000032c0| 69 45 6e 64 49 6e 73 4d | 6f 64 65 09 22 49 6e 73 |iEndInsM|ode."Ins|
|000032d0| 65 72 74 22 0d 62 69 6e | 64 20 24 61 6c 74 65 73 |ert".bin|d $altes|
|000032e0| 63 09 76 69 45 6e 64 49 | 6e 73 4d 6f 64 65 09 22 |c.viEndI|nsMode."|
|000032f0| 49 6e 73 65 72 74 22 0d | 62 69 6e 64 20 24 64 65 |Insert".|bind $de|
|00003300| 6c 09 76 69 44 65 6c 65 | 74 65 43 68 61 72 53 65 |l.viDele|teCharSe|
|00003310| 6c 09 22 49 6e 73 65 72 | 74 22 0d 62 69 6e 64 20 |l."Inser|t".bind |
|00003320| 24 64 65 6c 20 3c 73 3e | 09 76 69 44 65 6c 65 74 |$del <s>|.viDelet|
|00003330| 65 43 68 61 72 53 65 6c | 09 22 49 6e 73 65 72 74 |eCharSel|."Insert|
|00003340| 22 0d 62 69 6e 64 20 27 | 5c 6e 27 09 63 61 72 72 |".bind '|\n'.carr|
|00003350| 69 61 67 65 52 65 74 75 | 72 6e 09 22 49 6e 73 65 |iageRetu|rn."Inse|
|00003360| 72 74 22 0d 62 69 6e 64 | 20 27 5c 6e 27 20 3c 73 |rt".bind| '\n' <s|
|00003370| 3e 09 63 61 72 72 69 61 | 67 65 52 65 74 75 72 6e |>.carria|geReturn|
|00003380| 09 22 49 6e 73 65 72 74 | 22 0d 62 69 6e 64 20 27 |."Insert|".bind '|
|00003390| 5c 72 27 09 63 61 72 72 | 69 61 67 65 52 65 74 75 |\r'.carr|iageRetu|
|000033a0| 72 6e 09 22 49 6e 73 65 | 72 74 22 0d 62 69 6e 64 |rn."Inse|rt".bind|
|000033b0| 20 27 5c 72 27 20 3c 73 | 3e 09 63 61 72 72 69 61 | '\r' <s|>.carria|
|000033c0| 67 65 52 65 74 75 72 6e | 09 22 49 6e 73 65 72 74 |geReturn|."Insert|
|000033d0| 22 0d 62 69 6e 64 20 24 | 73 70 63 09 76 69 54 79 |".bind $|spc.viTy|
|000033e0| 70 65 53 70 61 63 65 09 | 22 49 6e 73 65 72 74 22 |peSpace.|"Insert"|
|000033f0| 0d 62 69 6e 64 20 24 73 | 70 63 20 3c 73 3e 09 76 |.bind $s|pc <s>.v|
|00003400| 69 54 79 70 65 53 70 61 | 63 65 09 22 49 6e 73 65 |iTypeSpa|ce."Inse|
|00003410| 72 74 22 0d 62 69 6e 64 | 20 27 7a 27 20 3c 7a 3e |rt".bind| 'z' <z>|
|00003420| 09 73 65 74 56 69 4d 6f | 64 65 4f 66 66 09 22 49 |.setViMo|deOff."I|
|00003430| 6e 73 65 72 74 22 0d 0d | 23 20 3d 3d 3d 3d 3d 3d |nsert"..|# ======|
|00003440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003450| 3d 3d 3d 3d 0d 23 20 3d | 3d 3d 3d 20 56 49 20 4d |====.# =|=== VI M|
|00003460| 4f 44 45 20 42 49 4e 44 | 49 4e 47 53 09 3d 3d 3d |ODE BIND|INGS.===|
|00003470| 3d 0d 23 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=.# ====|========|
|00003480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 23 |========|======.#|
|00003490| 09 45 53 43 3d 3d 61 62 | 6f 72 74 20 28 72 65 73 |.ESC==ab|ort (res|
|000034a0| 65 74 20 73 6f 20 6e 6f | 74 20 76 6f 69 64 20 72 |et so no|t void r|
|000034b0| 65 64 6f 20 22 76 69 49 | 6e 73 22 29 2c 20 27 20 |edo "viI|ns"), ' |
|000034c0| 27 3d 3d 73 70 65 63 69 | 61 6c 0d 23 09 44 45 4c |'==speci|al.#.DEL|
|000034d0| 3d 3d 62 61 63 6b 77 61 | 72 64 43 68 61 72 20 28 |==backwa|rdChar (|
|000034e0| 76 73 2e 20 62 61 63 6b | 53 70 61 63 65 29 0d 62 |vs. back|Space).b|
|000034f0| 69 6e 64 20 24 65 73 63 | 09 61 62 6f 72 74 45 6d |ind $esc|.abortEm|
|00003500| 09 09 22 56 69 22 0d 62 | 69 6e 64 20 24 61 6c 74 |.."Vi".b|ind $alt|
|00003510| 65 73 63 09 61 62 6f 72 | 74 45 6d 09 09 22 56 69 |esc.abor|tEm.."Vi|
|00003520| 22 0d 62 69 6e 64 20 24 | 64 65 6c 09 76 69 44 65 |".bind $|del.viDe|
|00003530| 6c 65 74 65 43 68 61 72 | 53 65 6c 09 22 56 69 22 |leteChar|Sel."Vi"|
|00003540| 0d 62 69 6e 64 20 24 64 | 65 6c 20 3c 73 3e 09 76 |.bind $d|el <s>.v|
|00003550| 69 44 65 6c 65 74 65 43 | 68 61 72 53 65 6c 09 22 |iDeleteC|harSel."|
|00003560| 56 69 22 0d 62 69 6e 64 | 20 27 5c 6e 27 09 6e 65 |Vi".bind| '\n'.ne|
|00003570| 78 74 4c 69 6e 65 09 22 | 56 69 22 0d 62 69 6e 64 |xtLine."|Vi".bind|
|00003580| 20 27 5c 6e 27 20 3c 73 | 3e 09 6e 65 78 74 4c 69 | '\n' <s|>.nextLi|
|00003590| 6e 65 09 22 56 69 22 0d | 62 69 6e 64 20 27 5c 72 |ne."Vi".|bind '\r|
|000035a0| 27 09 6e 65 78 74 4c 69 | 6e 65 09 22 56 69 22 0d |'.nextLi|ne."Vi".|
|000035b0| 62 69 6e 64 20 27 5c 72 | 27 20 3c 73 3e 09 6e 65 |bind '\r|' <s>.ne|
|000035c0| 78 74 4c 69 6e 65 09 22 | 56 69 22 0d 62 69 6e 64 |xtLine."|Vi".bind|
|000035d0| 20 24 73 70 63 09 66 6f | 72 77 61 72 64 43 68 61 | $spc.fo|rwardCha|
|000035e0| 72 09 22 56 69 22 0d 62 | 69 6e 64 20 24 73 70 63 |r."Vi".b|ind $spc|
|000035f0| 20 3c 73 3e 09 66 6f 72 | 77 61 72 64 43 68 61 72 | <s>.for|wardChar|
|00003600| 09 22 56 69 22 0d 62 69 | 6e 64 20 27 69 27 09 76 |."Vi".bi|nd 'i'.v|
|00003610| 69 49 6e 73 65 72 74 43 | 6d 64 09 22 56 69 22 0d |iInsertC|md."Vi".|
|00003620| 62 69 6e 64 20 27 3a 27 | 20 3c 73 3e 09 76 69 45 |bind ':'| <s>.viE|
|00003630| 78 4d 6f 64 65 09 22 56 | 69 22 0d 62 69 6e 64 20 |xMode."V|i".bind |
|00003640| 27 7a 27 20 3c 7a 3e 09 | 73 65 74 56 69 4d 6f 64 |'z' <z>.|setViMod|
|00003650| 65 4f 66 66 09 22 56 69 | 22 0d 62 69 6e 64 20 27 |eOff."Vi|".bind '|
|00003660| 5c 27 09 73 74 61 72 74 | 45 73 63 61 70 65 09 22 |\'.start|Escape."|
|00003670| 56 69 22 0d 62 69 6e 64 | 20 27 5c 27 20 3c 65 3e |Vi".bind| '\' <e>|
|00003680| 09 65 76 61 6c 43 6f 6d | 6d 61 6e 64 09 22 56 69 |.evalCom|mand."Vi|
|00003690| 22 0d 0d 62 69 6e 64 20 | 27 61 27 09 76 69 41 64 |"..bind |'a'.viAd|
|000036a0| 64 09 09 22 56 69 22 0d | 62 69 6e 64 20 27 61 27 |d.."Vi".|bind 'a'|
|000036b0| 20 3c 73 3e 09 76 69 41 | 64 64 45 6e 64 09 22 56 | <s>.viA|ddEnd."V|
|000036c0| 69 22 0d 62 69 6e 64 20 | 27 62 27 09 76 69 42 61 |i".bind |'b'.viBa|
|000036d0| 63 6b 77 61 72 64 57 6f | 72 64 09 22 56 69 22 0d |ckwardWo|rd."Vi".|
|000036e0| 62 69 6e 64 20 27 63 27 | 09 70 72 65 66 69 78 43 |bind 'c'|.prefixC|
|000036f0| 68 61 72 09 22 56 69 22 | 0d 62 69 6e 64 20 27 64 |har."Vi"|.bind 'd|
|00003700| 27 09 70 72 65 66 69 78 | 43 68 61 72 09 22 56 69 |'.prefix|Char."Vi|
|00003710| 22 0d 62 69 6e 64 20 27 | 65 27 09 76 69 45 6e 64 |".bind '|e'.viEnd|
|00003720| 4f 66 57 6f 72 64 09 22 | 56 69 22 0d 62 69 6e 64 |OfWord."|Vi".bind|
|00003730| 20 27 67 27 09 63 75 72 | 72 65 6e 74 50 6f 73 69 | 'g'.cur|rentPosi|
|00003740| 74 69 6f 6e 09 22 56 69 | 22 0d 62 69 6e 64 20 27 |tion."Vi|".bind '|
|00003750| 68 27 09 62 61 63 6b 77 | 61 72 64 43 68 61 72 09 |h'.backw|ardChar.|
|00003760| 22 56 69 22 0d 62 69 6e | 64 20 27 6a 27 09 6e 65 |"Vi".bin|d 'j'.ne|
|00003770| 78 74 4c 69 6e 65 09 22 | 56 69 22 0d 62 69 6e 64 |xtLine."|Vi".bind|
|00003780| 20 27 6a 27 20 3c 73 3e | 09 76 69 4a 6f 69 6e 4c | 'j' <s>|.viJoinL|
|00003790| 69 6e 65 09 22 56 69 22 | 0d 62 69 6e 64 20 27 6b |ine."Vi"|.bind 'k|
|000037a0| 27 09 70 72 65 76 69 6f | 75 73 4c 69 6e 65 09 22 |'.previo|usLine."|
|000037b0| 56 69 22 0d 62 69 6e 64 | 20 27 6c 27 09 66 6f 72 |Vi".bind| 'l'.for|
|000037c0| 77 61 72 64 43 68 61 72 | 09 22 56 69 22 0d 62 69 |wardChar|."Vi".bi|
|000037d0| 6e 64 20 27 6d 27 09 73 | 65 74 4e 61 6d 65 64 4d |nd 'm'.s|etNamedM|
|000037e0| 61 72 6b 09 22 56 69 22 | 0d 62 69 6e 64 20 27 6e |ark."Vi"|.bind 'n|
|000037f0| 27 09 76 69 53 65 61 72 | 63 68 09 22 56 69 22 0d |'.viSear|ch."Vi".|
|00003800| 62 69 6e 64 20 27 6f 27 | 09 76 69 4f 70 65 6e 4c |bind 'o'|.viOpenL|
|00003810| 69 6e 65 09 22 56 69 22 | 0d 62 69 6e 64 20 27 6f |ine."Vi"|.bind 'o|
|00003820| 27 20 3c 73 3e 09 76 69 | 4f 70 65 6e 4c 69 6e 65 |' <s>.vi|OpenLine|
|00003830| 42 09 22 56 69 22 0d 62 | 69 6e 64 20 27 70 27 09 |B."Vi".b|ind 'p'.|
|00003840| 76 69 59 61 6e 6b 09 09 | 22 56 69 22 0d 62 69 6e |viYank..|"Vi".bin|
|00003850| 64 20 27 72 27 09 76 69 | 53 75 62 43 68 61 72 09 |d 'r'.vi|SubChar.|
|00003860| 22 56 69 22 0d 62 69 6e | 64 20 27 73 27 09 76 69 |"Vi".bin|d 's'.vi|
|00003870| 53 75 62 43 68 61 72 09 | 22 56 69 22 0d 62 69 6e |SubChar.|"Vi".bin|
|00003880| 64 20 27 74 27 09 76 69 | 45 6e 64 4f 66 57 6f 72 |d 't'.vi|EndOfWor|
|00003890| 64 09 22 56 69 22 0d 62 | 69 6e 64 20 27 75 27 09 |d."Vi".b|ind 'u'.|
|000038a0| 75 6e 64 6f 09 09 22 56 | 69 22 0d 62 69 6e 64 20 |undo.."V|i".bind |
|000038b0| 27 76 27 09 76 69 42 61 | 63 6b 77 61 72 64 57 6f |'v'.viBa|ckwardWo|
|000038c0| 72 64 09 22 56 69 22 0d | 62 69 6e 64 20 27 77 27 |rd."Vi".|bind 'w'|
|000038d0| 09 76 69 46 6f 72 77 61 | 72 64 57 6f 72 64 09 22 |.viForwa|rdWord."|
|000038e0| 56 69 22 0d 62 69 6e 64 | 20 27 78 27 09 76 69 44 |Vi".bind| 'x'.viD|
|000038f0| 65 6c 65 74 65 43 68 61 | 72 58 09 22 56 69 22 0d |eleteCha|rX."Vi".|
|00003900| 62 69 6e 64 20 27 79 27 | 09 79 61 6e 6b 09 09 22 |bind 'y'|.yank.."|
|00003910| 56 69 22 0d 62 69 6e 64 | 20 27 7a 27 09 69 6e 73 |Vi".bind| 'z'.ins|
|00003920| 65 72 74 54 6f 54 6f 70 | 09 22 56 69 22 0d 62 69 |ertToTop|."Vi".bi|
|00003930| 6e 64 20 27 30 27 09 62 | 65 67 69 6e 6e 69 6e 67 |nd '0'.b|eginning|
|00003940| 4f 66 4c 69 6e 65 09 22 | 56 69 22 0d 62 69 6e 64 |OfLine."|Vi".bind|
|00003950| 20 27 25 27 20 3c 73 3e | 09 62 61 6c 61 6e 63 65 | '%' <s>|.balance|
|00003960| 09 09 22 56 69 22 0d 62 | 69 6e 64 20 27 24 27 20 |.."Vi".b|ind '$' |
|00003970| 3c 73 3e 09 65 6e 64 4f | 66 4c 69 6e 65 09 22 56 |<s>.endO|fLine."V|
|00003980| 69 22 0d 62 69 6e 64 20 | 24 71 75 6f 74 09 67 6f |i".bind |$quot.go|
|00003990| 74 6f 4e 61 6d 65 64 4d | 61 72 6b 09 22 56 69 22 |toNamedM|ark."Vi"|
|000039a0| 0d 62 69 6e 64 20 27 2f | 27 09 76 69 53 65 61 72 |.bind '/|'.viSear|
|000039b0| 63 68 46 6f 72 77 61 72 | 64 09 22 56 69 22 0d 62 |chForwar|d."Vi".b|
|000039c0| 69 6e 64 20 27 3f 27 20 | 3c 73 3e 09 76 69 53 65 |ind '?' |<s>.viSe|
|000039d0| 61 72 63 68 42 61 63 6b | 77 61 72 64 20 22 56 69 |archBack|ward "Vi|
|000039e0| 22 0d 23 3d 3d 3d 3d 0d | 23 09 27 20 6d 61 72 6b |".#====.|#.' mark|
|000039f0| 73 20 28 5e 27 20 66 6f | 72 20 27 27 29 0d 23 09 |s (^' fo|r '').#.|
|00003a00| 6d 3a 20 6e 61 6d 65 64 | 20 6d 61 72 6b 20 28 5e |m: named| mark (^|
|00003a10| 6d 20 66 6f 72 20 73 65 | 74 20 63 75 72 72 65 6e |m for se|t curren|
|00003a20| 74 20 6d 61 72 6b 29 0d | 23 09 6e 3a 20 72 65 70 |t mark).|#.n: rep|
|00003a30| 65 61 74 53 65 61 72 63 | 68 46 6f 72 77 61 72 64 |eatSearc|hForward|
|00003a40| 20 28 72 65 64 6f 20 63 | 6f 6d 6d 61 6e 64 73 20 | (redo c|ommands |
|00003a50| 28 70 65 72 73 69 73 74 | 65 6e 74 29 29 0d 23 09 |(persist|ent)).#.|
|00003a60| 64 3a 20 3c 78 3e 20 20 | 77 20 6f 72 20 24 09 0d |d: <x> |w or $..|
|00003a70| 23 09 63 3a 20 3c 65 3e | 20 20 77 20 6f 72 20 24 |#.c: <e>| w or $|
|00003a80| 09 09 0d 23 3d 3d 3d 3d | 0d 0d 23 20 3d 3d 3d 3d |...#====|..# ====|
|00003a90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003aa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ab0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003ac0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 23 |========|======.#|
|00003ad0| 20 3d 3d 3d 3d 20 56 49 | 20 4d 4f 44 45 20 42 49 | ==== VI| MODE BI|
|00003ae0| 4e 44 49 4e 47 53 20 2d | 2d 20 50 45 52 4d 41 4e |NDINGS -|- PERMAN|
|00003af0| 45 4e 54 20 28 70 72 65 | 66 69 78 65 64 29 20 53 |ENT (pre|fixed) S|
|00003b00| 45 54 54 49 4e 47 53 09 | 3d 3d 3d 3d 0d 23 20 3d |ETTINGS.|====.# =|
|00003b10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003b20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003b30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003b40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003b50| 3d 0d 62 69 6e 64 20 27 | 61 27 20 3c 7a 3e 09 62 |=.bind '|a' <z>.b|
|00003b60| 65 67 69 6e 6e 69 6e 67 | 4f 66 4c 69 6e 65 09 22 |eginning|OfLine."|
|00003b70| 56 69 22 0d 62 69 6e 64 | 20 27 62 27 20 3c 7a 3e |Vi".bind| 'b' <z>|
|00003b80| 09 70 61 67 65 42 61 63 | 6b 09 22 56 69 22 0d 62 |.pageBac|k."Vi".b|
|00003b90| 69 6e 64 20 27 65 27 20 | 3c 7a 3e 09 65 6e 64 4f |ind 'e' |<z>.endO|
|00003ba0| 66 4c 69 6e 65 09 22 56 | 69 22 0d 62 69 6e 64 20 |fLine."V|i".bind |
|00003bb0| 27 66 27 20 3c 7a 3e 09 | 70 61 67 65 46 6f 72 77 |'f' <z>.|pageForw|
|00003bc0| 61 72 64 09 22 56 69 22 | 0d 62 69 6e 64 20 27 67 |ard."Vi"|.bind 'g|
|00003bd0| 27 20 3c 7a 3e 09 63 75 | 72 72 65 6e 74 50 6f 73 |' <z>.cu|rrentPos|
|00003be0| 69 74 69 6f 6e 09 22 56 | 69 22 0d 62 69 6e 64 20 |ition."V|i".bind |
|00003bf0| 27 68 27 20 3c 7a 3e 09 | 62 61 63 6b 77 61 72 64 |'h' <z>.|backward|
|00003c00| 43 68 61 72 09 22 56 69 | 22 0d 62 69 6e 64 20 27 |Char."Vi|".bind '|
|00003c10| 6a 27 20 3c 7a 3e 09 6e | 65 78 74 4c 69 6e 65 09 |j' <z>.n|extLine.|
|00003c20| 22 56 69 22 0d 62 69 6e | 64 20 27 6b 27 20 3c 7a |"Vi".bin|d 'k' <z|
|00003c30| 3e 09 70 72 65 76 69 6f | 75 73 4c 69 6e 65 09 22 |>.previo|usLine."|
|00003c40| 56 69 22 0d 62 69 6e 64 | 20 27 6c 27 20 3c 7a 3e |Vi".bind| 'l' <z>|
|00003c50| 09 66 6f 72 77 61 72 64 | 43 68 61 72 09 22 56 69 |.forward|Char."Vi|
|00003c60| 22 0d 62 69 6e 64 20 27 | 6e 27 20 3c 7a 3e 09 73 |".bind '|n' <z>.s|
|00003c70| 63 72 6f 6c 6c 44 6f 77 | 6e 4c 69 6e 65 09 22 56 |crollDow|nLine."V|
|00003c80| 69 22 0d 62 69 6e 64 20 | 27 70 27 20 3c 7a 3e 09 |i".bind |'p' <z>.|
|00003c90| 73 63 72 6f 6c 6c 55 70 | 4c 69 6e 65 09 22 56 69 |scrollUp|Line."Vi|
|00003ca0| 22 0d 62 69 6e 64 20 27 | 71 27 20 3c 7a 3e 09 6b |".bind '|q' <z>.k|
|00003cb0| 65 79 41 73 63 69 69 09 | 22 56 69 22 0d 62 69 6e |eyAscii.|"Vi".bin|
|00003cc0| 64 20 27 72 27 20 3c 7a | 3e 09 66 69 6c 6c 50 61 |d 'r' <z|>.fillPa|
|00003cd0| 72 61 67 72 61 70 68 09 | 22 56 69 22 0d 23 20 20 |ragraph.|"Vi".# |
|00003ce0| 52 45 47 49 4f 4e 20 53 | 45 4c 45 43 54 2f 45 44 |REGION S|ELECT/ED|
|00003cf0| 49 54 0d 62 69 6e 64 20 | 27 74 27 20 3c 7a 3e 09 |IT.bind |'t' <z>.|
|00003d00| 76 69 45 6e 64 4f 66 57 | 6f 72 64 09 22 56 69 22 |viEndOfW|ord."Vi"|
|00003d10| 0d 62 69 6e 64 20 27 75 | 27 20 3c 7a 3e 09 75 6e |.bind 'u|' <z>.un|
|00003d20| 64 6f 09 09 22 56 69 22 | 0d 62 69 6e 64 20 27 76 |do.."Vi"|.bind 'v|
|00003d30| 27 20 3c 7a 3e 09 76 69 | 42 61 63 6b 77 61 72 64 |' <z>.vi|Backward|
|00003d40| 57 6f 72 64 09 22 56 69 | 22 0d 62 69 6e 64 20 27 |Word."Vi|".bind '|
|00003d50| 77 27 20 3c 7a 3e 09 76 | 69 46 6f 72 77 61 72 64 |w' <z>.v|iForward|
|00003d60| 57 6f 72 64 09 22 56 69 | 22 0d 62 69 6e 64 20 27 |Word."Vi|".bind '|
|00003d70| 79 27 20 3c 7a 3e 09 76 | 69 59 61 6e 6b 09 09 22 |y' <z>.v|iYank.."|
|00003d80| 56 69 22 0d 62 69 6e 64 | 20 27 31 27 20 3c 7a 3e |Vi".bind| '1' <z>|
|00003d90| 09 62 65 67 69 6e 6e 69 | 6e 67 4f 66 42 75 66 66 |.beginni|ngOfBuff|
|00003da0| 65 72 20 22 56 69 22 0d | 62 69 6e 64 20 27 34 27 |er "Vi".|bind '4'|
|00003db0| 20 3c 7a 3e 09 65 6e 64 | 4f 66 42 75 66 66 65 72 | <z>.end|OfBuffer|
|00003dc0| 09 22 56 69 22 0d 62 69 | 6e 64 20 27 35 27 20 3c |."Vi".bi|nd '5' <|
|00003dd0| 7a 3e 09 62 61 6c 61 6e | 63 65 09 09 22 56 69 22 |z>.balan|ce.."Vi"|
|00003de0| 0d 62 69 6e 64 20 27 2e | 27 09 76 69 52 65 64 6f |.bind '.|'.viRedo|
|00003df0| 4c 61 73 74 43 6d 64 09 | 22 56 69 22 0d 23 09 2e |LastCmd.|"Vi".#..|
|00003e00| 20 3a 20 72 65 64 6f 20 | 63 6f 6d 6d 61 6e 64 20 | : redo |command |
|00003e10| 28 68 69 73 74 6f 72 79 | 20 73 65 6e 73 69 74 69 |(history| sensiti|
|00003e20| 76 65 29 0d 0d 23 20 3d | 3d 3d 3d 20 44 45 4c 45 |ve)..# =|=== DELE|
|00003e30| 54 45 20 4d 4f 44 45 20 | 4d 4f 44 49 46 49 45 52 |TE MODE |MODIFIER|
|00003e40| 53 20 28 64 20 70 72 65 | 66 69 78 29 0d 62 69 6e |S (d pre|fix).bin|
|00003e50| 64 20 27 64 27 20 3c 7a | 3e 09 70 72 65 66 69 78 |d 'd' <z|>.prefix|
|00003e60| 43 68 61 72 09 22 56 69 | 22 0d 62 69 6e 64 20 27 |Char."Vi|".bind '|
|00003e70| 78 27 20 3c 44 3e 09 63 | 75 74 09 09 22 56 69 22 |x' <D>.c|ut.."Vi"|
|00003e80| 0d 62 69 6e 64 20 27 63 | 27 20 3c 44 3e 09 63 6f |.bind 'c|' <D>.co|
|00003e90| 70 79 09 09 22 56 69 22 | 0d 62 69 6e 64 20 27 76 |py.."Vi"|.bind 'v|
|00003ea0| 27 20 3c 44 3e 09 70 61 | 73 74 65 09 09 22 56 69 |' <D>.pa|ste.."Vi|
|00003eb0| 22 0d 62 69 6e 64 20 27 | 77 27 20 3c 44 3e 09 76 |".bind '|w' <D>.v|
|00003ec0| 69 44 65 6c 65 74 65 57 | 6f 72 64 09 22 56 69 22 |iDeleteW|ord."Vi"|
|00003ed0| 0d 62 69 6e 64 20 27 64 | 27 20 3c 44 3e 09 76 69 |.bind 'd|' <D>.vi|
|00003ee0| 44 65 6c 65 74 65 4c 69 | 6e 65 09 22 56 69 22 0d |DeleteLi|ne."Vi".|
|00003ef0| 62 69 6e 64 20 27 24 27 | 20 3c 73 44 3e 09 76 69 |bind '$'| <sD>.vi|
|00003f00| 44 65 6c 65 74 65 4c 69 | 6e 65 45 6e 64 09 22 56 |DeleteLi|neEnd."V|
|00003f10| 69 22 0d 62 69 6e 64 20 | 27 4c 27 20 3c 73 44 3e |i".bind |'L' <sD>|
|00003f20| 09 76 69 44 65 6c 65 74 | 65 50 61 67 65 09 22 56 |.viDelet|ePage."V|
|00003f30| 69 22 0d 62 69 6e 64 20 | 27 52 27 20 3c 73 44 3e |i".bind |'R' <sD>|
|00003f40| 09 76 69 44 65 6c 65 74 | 65 52 65 73 74 09 22 56 |.viDelet|eRest."V|
|00003f50| 69 22 0d 62 69 6e 64 20 | 27 42 27 20 3c 73 44 3e |i".bind |'B' <sD>|
|00003f60| 09 76 69 44 65 6c 65 74 | 65 41 6c 6c 42 65 66 6f |.viDelet|eAllBefo|
|00003f70| 72 65 20 22 56 69 22 0d | 0d 23 20 3d 3d 3d 3d 20 |re "Vi".|.# ==== |
|00003f80| 43 48 41 4e 47 45 20 4d | 4f 44 45 20 4d 4f 44 49 |CHANGE M|ODE MODI|
|00003f90| 46 49 45 52 53 20 28 63 | 20 70 72 65 66 69 78 29 |FIERS (c| prefix)|
|00003fa0| 0d 62 69 6e 64 20 27 63 | 27 20 3c 7a 3e 09 70 72 |.bind 'c|' <z>.pr|
|00003fb0| 65 66 69 78 43 68 61 72 | 09 22 56 69 22 0d 62 69 |efixChar|."Vi".bi|
|00003fc0| 6e 64 20 27 77 27 20 3c | 43 3e 09 76 69 43 68 61 |nd 'w' <|C>.viCha|
|00003fd0| 6e 67 65 57 6f 72 64 09 | 22 56 69 22 0d 62 69 6e |ngeWord.|"Vi".bin|
|00003fe0| 64 20 27 24 27 20 3c 43 | 73 3e 09 76 69 43 68 61 |d '$' <C|s>.viCha|
|00003ff0| 6e 67 65 4c 69 6e 65 09 | 22 56 69 22 0d 09 0d 23 |ngeLine.|"Vi"...#|
|00004000| 20 3d 3d 3d 20 4d 41 52 | 4b 20 4d 4f 44 45 20 4d | === MAR|K MODE M|
|00004010| 4f 44 49 46 49 45 52 53 | 20 28 5e 27 29 20 3d 3d |ODIFIERS| (^') ==|
|00004020| 3d 3d 0d 62 69 6e 64 20 | 24 71 75 6f 74 20 3c 7a |==.bind |$quot <z|
|00004030| 3e 20 65 78 63 68 61 6e | 67 65 50 6f 69 6e 74 41 |> exchan|gePointA|
|00004040| 6e 64 4d 61 72 6b 20 22 | 56 69 22 0d 62 69 6e 64 |ndMark "|Vi".bind|
|00004050| 20 27 6d 27 20 3c 7a 3e | 20 73 65 74 4d 61 72 6b | 'm' <z>| setMark|
|00004060| 09 09 22 56 69 22 0d 62 | 69 6e 64 20 27 5e 27 20 |.."Vi".b|ind '^' |
|00004070| 3c 7a 3e 20 65 78 63 68 | 61 6e 67 65 50 6f 69 6e |<z> exch|angePoin|
|00004080| 74 41 6e 64 4d 61 72 6b | 20 22 56 69 22 0d 62 69 |tAndMark| "Vi".bi|
|00004090| 6e 64 20 27 40 27 20 3c | 7a 3e 20 73 65 74 4d 61 |nd '@' <|z> setMa|
|000040a0| 72 6b 09 09 22 56 69 22 | 0d 0d 23 20 3d 3d 3d 3d |rk.."Vi"|..# ====|
|000040b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000040c0| 3d 3d 3d 3d 3d 3d 0d 23 | 20 3d 3d 3d 3d 20 45 58 |======.#| ==== EX|
|000040d0| 20 4d 4f 44 45 20 42 49 | 4e 44 49 4e 47 53 09 3d | MODE BI|NDINGS.=|
|000040e0| 3d 3d 3d 0d 23 20 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |===.# ==|========|
|000040f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004100| 0d 62 69 6e 64 20 24 65 | 73 63 09 76 69 43 6d 64 |.bind $e|sc.viCmd|
|00004110| 4d 6f 64 65 09 22 45 78 | 22 0d 62 69 6e 64 20 24 |Mode."Ex|".bind $|
|00004120| 61 6c 74 65 73 63 09 76 | 69 43 6d 64 4d 6f 64 65 |altesc.v|iCmdMode|
|00004130| 09 22 45 78 22 0d 62 69 | 6e 64 20 24 64 65 6c 09 |."Ex".bi|nd $del.|
|00004140| 76 69 44 65 6c 65 74 65 | 43 68 61 72 42 09 22 45 |viDelete|CharB."E|
|00004150| 78 22 0d 62 69 6e 64 20 | 24 64 65 6c 20 3c 73 3e |x".bind |$del <s>|
|00004160| 09 76 69 44 65 6c 65 74 | 65 43 68 61 72 42 09 22 |.viDelet|eCharB."|
|00004170| 45 78 22 0d 62 69 6e 64 | 20 27 5c 6e 27 09 76 69 |Ex".bind| '\n'.vi|
|00004180| 43 6d 64 4d 6f 64 65 09 | 22 45 78 22 0d 62 69 6e |CmdMode.|"Ex".bin|
|00004190| 64 20 27 5c 6e 27 20 3c | 73 3e 09 76 69 43 6d 64 |d '\n' <|s>.viCmd|
|000041a0| 4d 6f 64 65 09 22 45 78 | 22 0d 62 69 6e 64 20 27 |Mode."Ex|".bind '|
|000041b0| 5c 72 27 09 76 69 43 6d | 64 4d 6f 64 65 09 22 45 |\r'.viCm|dMode."E|
|000041c0| 78 22 0d 62 69 6e 64 20 | 27 5c 72 27 20 3c 73 3e |x".bind |'\r' <s>|
|000041d0| 09 76 69 43 6d 64 4d 6f | 64 65 09 22 45 78 22 0d |.viCmdMo|de."Ex".|
|000041e0| 62 69 6e 64 20 27 7a 27 | 20 3c 7a 3e 09 73 65 74 |bind 'z'| <z>.set|
|000041f0| 56 69 4d 6f 64 65 4f 66 | 66 09 22 45 78 22 0d 0d |ViModeOf|f."Ex"..|
|00004200| 62 69 6e 64 20 27 63 27 | 09 63 6f 70 79 09 09 22 |bind 'c'|.copy.."|
|00004210| 45 78 22 0d 62 69 6e 64 | 20 27 63 27 20 3c 73 3e |Ex".bind| 'c' <s>|
|00004220| 09 63 6f 70 79 4e 61 6d | 65 64 43 6c 69 70 62 6f |.copyNam|edClipbo|
|00004230| 61 72 64 20 22 45 78 22 | 0d 62 69 6e 64 20 27 67 |ard "Ex"|.bind 'g|
|00004240| 27 09 67 6f 74 6f 4c 69 | 6e 65 09 22 45 78 22 0d |'.gotoLi|ne."Ex".|
|00004250| 62 69 6e 64 20 27 6e 27 | 09 6e 65 77 09 09 22 45 |bind 'n'|.new.."E|
|00004260| 78 22 0d 62 69 6e 64 20 | 27 70 27 09 76 69 43 6f |x".bind |'p'.viCo|
|00004270| 70 79 53 65 6c 57 69 6e | 64 09 22 45 78 22 0d 62 |pySelWin|d."Ex".b|
|00004280| 69 6e 64 20 27 71 27 09 | 6b 69 6c 6c 57 69 6e 64 |ind 'q'.|killWind|
|00004290| 6f 77 09 22 45 78 22 0d | 62 69 6e 64 20 27 72 27 |ow."Ex".|bind 'r'|
|000042a0| 09 69 6e 73 65 72 74 46 | 69 6c 65 09 22 45 78 22 |.insertF|ile."Ex"|
|000042b0| 0d 62 69 6e 64 20 27 73 | 27 09 73 61 76 65 41 73 |.bind 's|'.saveAs|
|000042c0| 09 09 22 45 78 22 0d 62 | 69 6e 64 20 27 73 27 20 |.."Ex".b|ind 's' |
|000042d0| 3c 73 3e 09 76 69 53 61 | 76 65 53 65 6c 65 63 74 |<s>.viSa|veSelect|
|000042e0| 69 6f 6e 09 22 45 78 22 | 0d 62 69 6e 64 20 27 76 |ion."Ex"|.bind 'v|
|000042f0| 27 09 70 61 73 74 65 09 | 09 22 45 78 22 0d 62 69 |'.paste.|."Ex".bi|
|00004300| 6e 64 20 27 76 27 20 3c | 73 3e 09 70 61 73 74 65 |nd 'v' <|s>.paste|
|00004310| 4e 61 6d 65 64 43 6c 69 | 70 62 6f 61 72 64 20 22 |NamedCli|pboard "|
|00004320| 45 78 22 0d 62 69 6e 64 | 20 27 77 27 09 73 61 76 |Ex".bind| 'w'.sav|
|00004330| 65 09 09 22 45 78 22 0d | 62 69 6e 64 20 27 78 27 |e.."Ex".|bind 'x'|
|00004340| 09 63 75 74 09 09 22 45 | 78 22 0d 62 69 6e 64 20 |.cut.."E|x".bind |
|00004350| 27 78 27 20 3c 73 3e 09 | 63 75 74 4e 61 6d 65 64 |'x' <s>.|cutNamed|
|00004360| 43 6c 69 70 62 6f 61 72 | 64 20 22 45 78 22 0d 62 |Clipboar|d "Ex".b|
|00004370| 69 6e 64 20 27 31 27 09 | 62 65 67 69 6e 6e 69 6e |ind '1'.|beginnin|
|00004380| 67 4f 66 42 75 66 66 65 | 72 20 22 45 78 22 0d 62 |gOfBuffe|r "Ex".b|
|00004390| 69 6e 64 20 27 24 27 20 | 3c 73 3e 09 65 6e 64 4f |ind '$' |<s>.endO|
|000043a0| 66 42 75 66 66 65 72 09 | 22 45 78 22 0d 23 20 2a |fBuffer.|"Ex".# *|
|000043b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000043c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000043d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000043e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000043f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 23 09 09 09 09 |********|**.#....|
|00004400| 20 45 4e 44 20 6f 66 20 | 56 49 20 73 65 63 74 69 | END of |VI secti|
|00004410| 6f 6e 2e 0d 23 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |on..# **|********|
|00004420| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004430| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004440| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004460| 2a 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |*..#====|========|
|00004470| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004480| 3d 3d 3d 3d 3d 3d 3d 0d | 23 20 3d 3d 3d 3d 20 45 |=======.|# ==== E|
|00004490| 4d 41 43 53 20 4d 4f 44 | 45 20 42 49 4e 44 49 4e |MACS MOD|E BINDIN|
|000044a0| 47 53 09 3d 3d 3d 3d 0d | 23 3d 3d 3d 3d 3d 3d 3d |GS.====.|#=======|
|000044b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000044c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0d 23 3d |========|====..#=|
|000044d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000044e0| 3d 3d 3d 3d 3d 3d 3d 20 | 45 4e 44 20 4e 55 4d 4c |======= |END NUML|
|000044f0| 49 4e 45 53 20 37 37 37 | 20 3d 3d 3d 3d 3d 3d 3d |INES 777| =======|
|00004500| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004510| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 00 00 |========|=====...|
|00004520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004580| 00 00 01 00 00 00 04 98 | 00 00 03 98 00 00 00 42 |........|.......B|
|00004590| 4e 75 4e 56 5b 5c 04 0f | 18 1a 2e 00 1f 2e 2e a8 |NuNV[\..|........|
|000045a0| 2b 30 01 20 10 7a 5b 01 | 54 80 36 02 55 c0 02 40 |+0. .z[.|T.6.U..@|
|000045b0| 06 76 69 2e 74 63 6c 76 | 02 00 00 00 54 45 58 54 |.vi.tclv|....TEXT|
|000045c0| 41 4c 46 41 00 00 7b 34 | 79 a0 00 00 00 00 5c de |ALFA..{4|y.....\.|
|000045d0| 00 00 54 45 58 54 41 4c | 46 41 00 00 7b 34 79 a0 |..TEXTAL|FA..{4y.|
|000045e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000045f0| 00 00 aa 0f a1 4f 00 00 | 44 9e 00 00 04 da 3d 18 |.....O..|D.....=.|
|00004600| 00 28 2f 07 72 00 12 05 | 2f 01 72 00 12 06 2f 01 |.(/.r...|/.r.../.|
|00004610| 46 4c 01 fd ec 68 ee 6b | 01 01 4c 3d 47 46 4c 01 |FL...h.k|..L=GFL.|
|00004620| fd ba 55 45 46 4c 01 fd | 90 68 ee 6b 01 00 f0 27 |..UEFL..|.h.k...'|
|00004630| 01 00 2f bd 69 01 66 60 | 44 3d 47 46 4c 01 fd 4e |../.i.f`|D=GFL..N|
|00004640| 3d 47 46 4c 01 fd 24 68 | ee 6b 02 00 84 70 03 2d |=GFL..$h|.k...p.-|
|00004650| 3e 50 01 11 9a 44 7d 45 | 2d 42 01 fc e0 7d 45 2d |>P...D}E|-B...}E-|
|00004660| 42 01 fc b8 68 02 00 60 | 60 18 3d 3e 50 01 11 9a |B...h..`|`.=>P...|
|00004670| 3f 68 54 30 43 4b 5c 2f | 01 1a 2e 37 59 4d 01 26 |?hT0CK\/|...7YM.&|
|00004680| 00 00 03 48 00 28 00 00 | 12 a8 00 00 12 a8 07 61 |...H.(..|.......a|
|00004690| 64 64 4d 6f 64 65 00 00 | 10 8d 00 00 10 8d 0d 63 |ddMode..|.......c|
|000046a0| 68 61 6e 67 65 53 75 62 | 4d 6f 64 65 00 00 12 29 |hangeSub|Mode...)|
|000046b0| 00 00 12 29 09 67 65 74 | 57 69 6e 49 64 00 00 00 |...).get|WinId...|
|000046c0| 15 9c 00 00 15 9c 09 73 | 65 74 56 69 4d 6f 64 65 |.......s|etViMode|
|000046d0| 00 00 16 2c 00 00 16 2c | 0d 73 65 74 56 69 4d 6f |...,...,|.setViMo|
|000046e0| 64 65 4f 66 66 00 00 00 | 27 f2 00 00 27 f2 05 76 |deOff...|'...'..v|
|000046f0| 69 41 64 64 00 00 28 49 | 00 00 28 49 09 76 69 41 |iAdd..(I|..(I.viA|
|00004700| 64 64 45 6e 64 00 00 00 | 1d d0 00 00 1d d0 0f 76 |ddEnd...|.......v|
|00004710| 69 42 61 63 6b 77 61 72 | 64 57 6f 72 64 00 00 00 |iBackwar|dWord...|
|00004720| 28 a2 00 00 28 a2 0d 76 | 69 43 68 61 6e 67 65 4c |(...(..v|iChangeL|
|00004730| 69 6e 65 00 00 00 29 2f | 00 00 29 2f 0d 76 69 43 |ine...)/|..)/.viC|
|00004740| 68 61 6e 67 65 57 6f 72 | 64 00 00 00 15 28 00 00 |hangeWor|d....(..|
|00004750| 15 28 09 76 69 43 6d 64 | 4d 6f 64 65 00 00 2f 3f |.(.viCmd|Mode../?|
|00004760| 00 00 2f 3f 0d 76 69 43 | 6f 70 79 53 65 6c 57 69 |../?.viC|opySelWi|
|00004770| 6e 64 00 00 26 c4 00 00 | 26 c4 11 76 69 44 65 6c |nd..&...|&..viDel|
|00004780| 65 74 65 41 6c 6c 42 65 | 66 6f 72 65 00 00 20 d6 |eteAllBe|fore.. .|
|00004790| 00 00 20 d6 0d 76 69 44 | 65 6c 65 74 65 43 68 61 |.. ..viD|eleteCha|
|000047a0| 72 42 00 00 21 0b 00 00 | 21 0b 0f 76 69 44 65 6c |rB..!...|!..viDel|
|000047b0| 65 74 65 43 68 61 72 53 | 65 6c 00 00 20 14 00 00 |eteCharS|el.. ...|
|000047c0| 20 14 0d 76 69 44 65 6c | 65 74 65 43 68 61 72 58 | ..viDel|eteCharX|
|000047d0| 00 00 24 fe 00 00 24 fe | 0d 76 69 44 65 6c 65 74 |..$...$.|.viDelet|
|000047e0| 65 4c 69 6e 65 00 00 00 | 24 75 00 00 24 75 0f 76 |eLine...|$u..$u.v|
|000047f0| 69 44 65 6c 65 74 65 4c | 69 6e 65 45 6e 64 00 00 |iDeleteL|ineEnd..|
|00004800| 25 b1 00 00 25 b1 0d 76 | 69 44 65 6c 65 74 65 50 |%...%..v|iDeleteP|
|00004810| 61 67 65 00 00 00 26 49 | 00 00 26 49 0d 76 69 44 |age...&I|..&I.viD|
|00004820| 65 6c 65 74 65 52 65 73 | 74 00 00 00 27 46 00 00 |eleteRes|t...'F..|
|00004830| 27 46 0d 76 69 44 65 6c | 65 74 65 57 6f 72 64 00 |'F.viDel|eteWord.|
|00004840| 00 00 19 2c 00 00 19 2c | 0d 76 69 45 6e 64 49 6e |...,...,|.viEndIn|
|00004850| 73 4d 6f 64 65 00 00 00 | 1d 15 00 00 1d 15 0b 76 |sMode...|.......v|
|00004860| 69 45 6e 64 4f 66 57 6f | 72 64 00 00 1b 48 00 00 |iEndOfWo|rd...H..|
|00004870| 1b 48 09 76 69 45 78 4d | 6f 64 65 00 00 00 1e e2 |.H.viExM|ode.....|
|00004880| 00 00 1e e2 0d 76 69 46 | 6f 72 77 61 72 64 57 6f |.....viF|orwardWo|
|00004890| 72 64 00 00 17 51 00 00 | 17 51 0b 76 69 49 6e 73 |rd...Q..|.Q.viIns|
|000048a0| 65 72 74 43 6d 64 00 00 | 18 23 00 00 18 23 0d 76 |ertCmd..|.#...#.v|
|000048b0| 69 49 6e 73 65 72 74 4d | 6f 64 65 00 00 00 22 13 |iInsertM|ode...".|
|000048c0| 00 00 22 13 0b 76 69 4a | 6f 69 6e 4c 69 6e 65 00 |.."..viJ|oinLine.|
|000048d0| 00 00 23 d7 00 00 23 d7 | 0b 76 69 4f 70 65 6e 4c |..#...#.|.viOpenL|
|000048e0| 69 6e 65 00 00 00 24 44 | 00 00 24 44 0b 76 69 4f |ine...$D|..$D.viO|
|000048f0| 70 65 6e 4c 69 6e 65 42 | 00 00 1a 7d 00 00 1a 7d |penLineB|...}...}|
|00004900| 0d 76 69 52 65 64 6f 49 | 6e 73 65 72 74 00 00 00 |.viRedoI|nsert...|
|00004910| 16 74 00 00 16 74 0d 76 | 69 52 65 64 6f 4c 61 73 |.t...t.v|iRedoLas|
|00004920| 74 43 6d 64 00 00 2e ce | 00 00 2e ce 0d 76 69 52 |tCmd....|.....viR|
|00004930| 65 64 6f 53 65 61 72 63 | 68 00 00 00 30 24 00 00 |edoSearc|h...0$..|
|00004940| 30 24 0f 76 69 53 61 76 | 65 53 65 6c 65 63 74 69 |0$.viSav|eSelecti|
|00004950| 6f 6e 00 00 2a 99 00 00 | 2a 99 09 76 69 53 65 61 |on..*...|*..viSea|
|00004960| 72 63 68 00 00 00 2d 69 | 00 00 2d 69 11 76 69 53 |rch...-i|..-i.viS|
|00004970| 65 61 72 63 68 42 61 63 | 6b 77 61 72 64 00 00 00 |earchBac|kward...|
|00004980| 2e 1c 00 00 2e 1c 0f 76 | 69 53 65 61 72 63 68 46 |.......v|iSearchF|
|00004990| 6f 72 77 61 72 64 00 00 | 29 be 00 00 29 be 09 76 |orward..|)...)..v|
|000049a0| 69 53 75 62 43 68 61 72 | 00 00 21 8a 00 00 21 8a |iSubChar|..!...!.|
|000049b0| 0b 76 69 54 79 70 65 53 | 70 61 63 65 00 00 21 b4 |.viTypeS|pace..!.|
|000049c0| 00 00 21 b4 07 76 69 59 | 61 6e 6b 00 00 00 00 48 |..!..viY|ank....H|
|000049d0| 00 09 4d 6f 6e 61 63 6f | 00 b0 a5 50 00 00 19 58 |..Monaco|...P...X|
|000049e0| 01 ac 5f 78 01 d3 50 f0 | 24 00 04 42 02 20 40 ac |.._x..P.|$..B. @.|
|000049f0| 00 01 00 04 00 04 00 3c | 01 3d 01 de 02 76 00 3c |.......<|.=...v.<|
|00004a00| 01 3d 01 de 02 76 ad fa | be f5 00 00 12 a8 00 00 |.=...v..|........|
|00004a10| 12 a8 00 00 12 a6 01 00 | 00 00 01 00 00 00 04 98 |........|........|
|00004a20| 00 00 03 98 00 00 00 42 | 01 aa b0 f8 19 58 00 00 |.......B|.....X..|
|00004a30| 00 1c 00 3e 00 00 4d 50 | 53 52 00 01 00 0a 03 ef |...>..MP|SR......|
|00004a40| 00 00 00 00 00 00 01 b0 | ac a8 03 ed ff ff 00 00 |........|........|
|00004a50| 03 4c 01 b0 86 b8 03 74 | 61 62 00 00 00 00 00 00 |.L.....t|ab......|
|00004a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
